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This manual is the first in a series of 
four manuals providing detailed information 
about the VSE/Advanced Functions Logical 
IOCS programs. The four manuals are: 


Volume 1: General Information and 
Imperative Macros, LY24-5209. 


SAM for DASD, LY24-5212. 
This first volume is mainly intended for 
persons involved in program maintenance and 
for systems programmers who are altering 
the program design. The volume contains 
general information about Logical I0CS as 
well as descriptive text and flowcharts 
about commonly used transients. Included 
in this manual are; : 


1. The functions of logical I0CS, 
including a short description of the 
available access methods. | | 


2. The modular-tabular system. 


3. A short description of the declarative 
macros. 


4. Complete description of the imperative 
macros. 


5. File initialization and termination. 


6. A detailed description of the open and 
clcse routines. 


7. A detailed description of DASD file 
protect routines. 


8. A detailed description of VTOC Display 
and Dump routines. 


9. Charts. 


In addition, this volume contains 
appendixes with information that is either 
supplementary tc LIOCS or is an aid for 
information retrieval. To the first 
category belongs the EFBCDIC - ASCII 
conversion tables. To the second category 
belong: the label cross-reference list, 
error message list, master error message 
list, and master index. 


Volumes 2, 3, and 4 contain information 
relating to all the logical IOCS components 
necessary tec process the file types. 
described within those books. Exception to 
this approach is found in those routines 


PREFACE 


that are either common to more than one 
access method or independent of file types. 
These routines, which include the open and 
close monitor, DASD file protect, and VTOC 
routines, are documented in this volume. 


of Operation, 
with 


System/360 Principles of Operation, 
-6821. 


e VSE/Advanced Functions Macro Reference, 
SC 24-5211. 


e VSE/ZAdvanced Functions System Control 
Statements, SC33-6095. 

e VSE/Advanced Functions Diagnosis 
Reference: Supervisor, LY33-9091. 


unctions Diagnosis 


e YSE/Advanced Func 
Reference: LIOCS Volume 2, SAM, 

e YSE/Advanced Functicns Diaqnosis 
Reference: LIOCS Volume 3, DAM and ISAM, 
LY24-5211. 

e VSE/ZAdvanced Functions Diagnosis 
Reference: LIOCS Volume 4, SAM for DASD, 
LY 24-5212. 
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The transfer of data between storage and 
the input/output devices attached toa 
system is controlled by the Input/Output 
Control System (I0CS). I0OCS allows the 
problem programmer to specify: 


e What data has to be transferred. 
e Which I/O device is to be used. 


e In which sequence data transfer is to 
take place. 


VSE/Advanced Functions gives the problem 
programmer a choice of two input/output 
control systems: 


e Physical IOCS (PIOCS) 
e Logical IOCS (LIOCS). 


Full details on physical IOCS can be found 


LIOCS performs the data management function 
required to locate and access logical 
records for processing, Some LIOCS 
routines are linked and executed as a part 
of the user's problem program. Others, 
notably SAM DASD and DAM LIOCS routines, 
are provided by IBM, loaded into the System 
Virtual Area (SVA) at IPL time, and are 
dynamically linked to the user's program. 
They provide an interface between the 
user's file processing routine and the 


INTRODUCTION 


PIOCS routines. Some of the data 
management functions performed by LIOCS 
are: 


® Blocking and deblocking of logical 
records. 


e Switching between I/O areas when two 
areas are specified for a file. 

e Handling End-of-File (EOF) and 
End-of-Volume (EOV) conditions. 


e Issuing requests to PIOCS to execute the 
appropriate channel programs. 


LIOCS makes use of two types of macro 
instructions to perform the required 
functions: imperative macro instructions 
and declarative macro instructions. 
Imperative macro instructions supply the 
facilities for reading, writing, blocking 
and deblocking, file labeling, and error 
checking. These instructions can hbe used 
only for data files that have been defined 
by declarative macro instructions. The 
declarative macro instructions specify the 
characteristics of a data file, such as the 
file name, I/0 device type, or 
organization. 


When LIOCS determines that a data area 
contains no logical record, it issues a 
physical IOCS macro instruction to execute 
the actual data transfer. Figure 1 shows 
the relationship between logical and 
physical I0cS for a LIOCS imperative READ 
macro issued to an input file when one I/0 
area is used. 
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Problem Program 


Issue READ request (refer 
to the file description 
elsewhere in the program). 










Provide a new logical 
record from a physical 
block in the I/O area 
(deblock) to the problem 
program, 

or 


if actual input is required 
(new block), issue a 
physical read request 
(EXCP) 


WAIT 


When I/O is complete, 
t-rovide the first (or only) 
logical record from the 
new block in the I/O area 
to the problem program. 


Next instruction after 
READ request. 


Figure 1. 


LOGICAL IOCS PROCESSING METHODS 


Logical IOCS routines process records in 
any one of three ways: 


1. Sequentially, through the use of the 
Sequential Access Method (SAM). This 
method can be used with all files on 
serial devices (such as card readers, 
tapes, and printers), and with 
sequentially organized files on disk 
and diskette. 


2- Randomly, through the use of the Direct 
Access Method (DAM). This method can 
be used with files on disk only. 


3. Both sequentially and randomly, through 
the use of the Indexed Sequential 
Access Method (ISAM) or the Virtual 
Storage Access Method (VSAM). These 
methods can be used with disk only. 
VSAM is available to VSE users through 
the VSE/VSAM program product. 


Sequential Access Method (SAM) 

Sequential processing reads/writes and 
processes successive records in a logical 
file. For example, card records are 
processed in the order the cards are fed; 
tape records are processed starting with 
the first record following the header 
labels and ending with the last record 
before the trailer labels. DASD records 
are processed starting with the beginning 
DASD address and continuing in order 
through the records on successive tracks 
and cylinders up to the ending address. 


Logical 1OCS 
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Physical 1OCS 1/O Device 
! 








Determine channel! and: 


a) If channel is not busy, 


start 1/O Start device 


b) If channel is busy, place 
request into channel 
queue and return to 
LIOCS. (Supervisor 
will retry later.) 


Data transfer 
1/O complete 
When I/O is complete, 


return to LIOCS via inter- 
rupt handling routine. 


Example of LIOCS and PIOCS Interrelationship 


Diskette records are processed starting 
with the beginning diskette address and 
continuing in order through the records on 
successive tracks up to the ending address. 


Volumes 2 and 4 contain a detailed 
discussion on sequential processing. 


Direct Access Method (DAM) 


The Direct Access Method processes records 
contained on IBM disk devices that are 


usually organized in a random manner. DAM 


is a method for processing records rather 
than an organizational method. 


The location reference required by LIOCS 
for processing a file in a random manner 
consists of two parts: a track reference 
and a record reference. The record 
reference may be the record key, or, if no 
key areas are present, the record ID which 
is in the count area of each DASD record. 
Volume 3 contains a detailed description of 


Tandom processing through DAM. 


Indexed Sequential Access Method (ISAM) 
The Indexed Sequential Access Method can 
process records on a DASD device ina 
random and/or sequential order. Both 
orders use the control information that is 
in the key field of each record. The user 
supplies ISAM with the key (control 
information) of the desired record. 
searches for the record and makes it 
available for processing. 


ISAM 
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In sequential processing, a series of 
records is made available. The first 
record to be processed is specified by the 
user. ISAM retrieves the succeeding 
records (on demand) from the logical file, 
in key order, until the problem program 
terminates the operation. 


ISAM creates an organized file and then 
adds to, reads from, and updates records in 
that file. The file is organized from 
records that are presorted by control 
information. As the DASD records are 
loaded, ISAM constructs indexes for the 
logical file. If records are added to the 
file at a later stage, ISAM updates the 
indexes to reflect the new records. Volume 
3 describes ISAM in detail. a 


The Virtual Storage Access Method can 
process records on a DASD device. It 
differs from the access methods mentioned 
so far in that: . | 


e It allows three different ways of data 
organization, each of which allows 
different ways of processing. 


e It includes a facility for automatic 
space allocation. | 


e It includes a set of service programs 


that allow for the execution of a number 


of specialized functions. 


e It allows ISAM files that have been 
converted to the VSAM format to be 
processed using ISAM macros. | 


e It offers device independence due to the 
special format of its physical blocks. 


e It offers data integrity control and 
access control ky means of design, and 
integrity and access control options. 


In VSE/VSAM, a user may choose between 
three types of data organization: 


e Key-sequenced data organization. 
e Entry-sequenced data organization. 
e Relative-record data organization. 


In a key-sequenced organization, logical 
records are stored on the basis of a 
collating sequence determined by the 
content of the primary keys of those 
records. This key collating sequence is 
kept at all times. The key-sequenced 
organization is basically similar to the 


organization of an ISAM file. 


Key~segquenced data organization allows for 
the following tyres of processing: 


e Keyed-direct processing. 


Keyed-sequential processing. 


Addressed-direct processing. 


e Addressed-sequential processing. 


records are stored physically in the same 
sequence in which they are entered. Newly 
added logical records are stored at the 
physical end of the file. This 
Organization is basically similar to that 
of the SAM file. - = _ 


Entry-sequenced data organization allows 
for the following types of processing: 


e Addressed-direct processing. 


e Addressed-sequential processing. 


records are stored ina string of 
fixed-length slots, each of which has a 
relative-record number, starting from one 
up to the maximum number of relative 
records that can be stored in the file. No 
index is built. 


A slot may be empty or it may be 
occupied, in which case the record is 
identified by the number of the slot. For 
example, a record in the tenth slot of the. 
file gets relative-record 10; it will 
always be the tenth record of the file 
regardless of whether or not records have 
been written into the preceding nine slots. 
A record is retrieved by its 
relative-record (that is, slot) number, the 
number being treated as a key. 


al and Basi 


c communications Access 
ds (ACF/VTAM 


Tele 
and BYAM~-ES) 

VSE/Advanced Functions communicates with 
remote terminals with Advanced 
Communications Function/VTAM or Basic 
Telecommunications Access Method - Extended 


Support. 


These processing methods are not 
documented, beyond an occasional reference, 
in this set of Diagnosis Reference Manuals. 
Specific information concerning ACF/VTAM 
and BTAM-ES is found in the ACF/VTAM and 
BTAM-ES publications. - 


Some logical I0CS routines are generated as 
part of the problem program, others 
(supplied by IBM) reside in the System 
Virtual Area and are dynamically linked to 
the user program. Imperative macro 
expansions, which serve as linkage to the 
logical or physical IOCS routines, are 
generated inline at the point the macro is 
used in the problem program. The open, 
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close, EOF/EOV, and other special purpose 
routines are called into the B-transient 
(logical transient) area as required. The 
physical I0OCS routines used by logical I0cs 
are generated as part of the supervisor 
program. 


MODULAR-TABULAR SYSTEM 

The term tabular and modular indicate that 
the system uses tables in conjunction with 
data handling modules to implement its 
functions. 


The modular-tabular system has the 
advantages of: 


e Saving assembly time by allowing the 
data handling modules to be generated 
separately and to be stored in the 
relocatable library for subsequent use. 


e Using one module with many files if the 
device types are the same and the files 
are similar. 


The modular-tabular combination for a 
specific file is generated by two 
declarative macros: the file definition 
macros (DTFxx) and the module generation 
macros (xxMOD). 


The file definition macros describe the 
logical file, indicate the type of 
processing to be used for the file, and 
specify storage areas (work area, I/O area) 
for the file. A number of file definition 
macros define the files processed by 
logical IOCS, and one defines files 
processed by physical IOCS (DTFPH). The 
file to be processed determines the type of 
file definition macro to be used. 


The module generation macros generate the 
data handling logic modules. These modules 
contain generalized routines needed to 
perform the functions of the logical IOcS 
imperative macres. The generalized 
routines in the logic modules are altered 
and made more specific through various 
parameters (specified by the problen 
programmer) included in the xxMOD macro 
statements. It is possible, therefore, to 
generate many variations of a particular 
type of logic module, each specifically 
suited to the need of the problem 
programmer. For sequential DASD and DAM 
files, the data handling logic modules are 
provided by IBM. If the user provides a 
module in these cases, it is overridden by 
the IBM-supplied version. 
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DECLARATIVE MACROS 


DIF (Define the File) Macros 

Whenever logical IOCS imperative macro 
instructions are used in a problem program 
to control the transfer of records ina 
file, that file must be defined by a 
declarative DTF macro instruction. 
macro instruction describes (through 
various parameters specified by the problem 
programmer) the characteristics of the 
logical file, indicates the type of 
processing for the file, and specifies the 
main storage areas and routines. Figure 2 
summarizes the various DTF table types 
supported by VSE. Detailed descriptions of 
the logical IocS file definition (DTF) 
macros and their parameters appear in 
VSEZAdvanced Functions Macro Reference. 


The DTF 


In general, the IBM-supplied file 
definition declarative macros are 
device-oriented. In addition, three 
declarative macros, DTFSR, DTFBG, and DTFEN 
are supported by VSE/Advanced Functions to 
provide upward compatibility from the IBM 
Basic Operating System (8K system). A 
brief description follows for each of the 
DTF macros available to users of 
VSE/Advanced Functions. 


TFCD Define The File for a Card Device. 
To define a file associated with the 
records on a card unit or on the 3881 
Optical Mark Reader. 


DTFCN. Define The File for a CoNsole. To 
define a file associated with the console 
printer-keyboard (3210 or 3215) or with a 
Display Operator Console. 


DIFCP. Define The File for a ComPiler. To 
provide limited device independence for 
IBM-written programs (COBOL, FORTRAN, 
PL/I). Because the DTFCP macro is written 
specifically to handle the needs of IBM 
internal programs, it is not documented in 
any System Reference Library publications. 


DTFDA. Define The File for Direct Access 
method. To determine a file when DASD 


(Direct Access Storage Device) records are 
to be processed by the Direct Access 
Method. 


DTFDI. Define The File for Device 
Independent system files. To define files 
assigned to the device independent system 
logical units SYSRDR, SYSIPT, SYSPCH, and 
SYSLST to provide DOS/VSE Assembler users 
with the same capabilities extended by 
DTFCP. 
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DTFDR Define the File for the 3886 
Optical Character Reader. To define a file 
associated with a 3886 Optical Character 
Reader. 


Define the File for a Diskette 
To define a file associated with a 
3540 Diskette Input/Output Unit. 


DTFDU. 


DIFIS. Define The File for Indexed 
Sequential file management system. To 
define a file organized and processed by 
the Indexed Sequential File Management 
systen. | 


DITFMR. Define The File fcr Magnetic 
Recognition. To define a file associated 
with a Magnetic Ink Character Recognition 
(MICR) device (1255/1259/1419) or ppescat 
Reader/Sorter (1270-1275*). 

DIFMT. Define The File for Magnetic Tape. 
To define a file associated with a magnetic 
tape device. | 


DTFOR. Define The File for an Optical 
Reader. To define a file associated with 
an Optical Character Reader device (1287). 


DIFPH. Define The File for processing by 
PHysical IOCS. To define a magnetic tape, 
diskette, or DASD file with standard labels 
that is processed by physical IOCS when the 
user wishes to use the OPEN and CLOSE 
macros for label processing. DTFPH 
parameters define the magnetic tape, 
diskette, and DASD files. No other files 
processed by physical IOCS require , 
definition. 


Only the following logical IO0cS 
functions can be performed for files 
defined by a DTFPH macro. 


e Check the header labels on input files, 
and close these files when requested. 


e Create header labels on output files, 
and create trailer labels when the file 
is closed. 


e Force end-of-volume on an output file 
when requested. (Force end-of-volume is 
not supported on diskettes.) 


When a DIFPH macro instruction is 
encountered at assembly time, the assembler 
builds a DTF table that includes only the 
parameters needed for the OPEN, CLOSE, and 
FEOV routines. The OPEN, CLOSE, and FEOV 
macro expansions call the open and close 
routines. 


* These devices are not available in the 
United States of America. 


into the supervisor B-transient area at 
object time. 

DTFPR. Define The File for a PRinter. To 
define a file associated with a printer 
device, or a 2560 MFCM or 3525 Card Punch 
with the print feature. 


DTFPT Define The File for Paper Tape. To 


define a paper tape file. 


DTFSD. Define The File for Sequential 
DASD. To define sequential files ona 


Direct Access Storage Device (DASD). 


DIFSR. Define The File in a SeRial type 
file device. To define a file for 
sequential processing of records on any 
IOCS supported I/0 device. 


The VSE DTFSR macro definition accepts 
either the BOS or BPS DTFSR macro as valid 
input. After determining the device type 
required, the VSE DTFSR macro calls, from 
the source statement library, the | 
appropriate VSE DTF macro. The DTF macro 
called by the VSE DTFSR then sets up a DTF 
table in the usual manner. 


The VSE macro definition is used. only to 


allow upward compatibility and DTFSR should 


not be used as a statement in the user's 
VSE source deck. 

DIFBG. The BeGin-definition must be 
punched with DTFBG in the operation field 
and DISK in the operand field. The name 
field is left blank. DTFBG is included in 
VSE to provide compatibility with the BOS 
DTFSR macro instruction. 


DITFEN- Define The Field ENd. To show 
there are no more DTF source statements to 
process. Only to allow upward 
compatibility for BOS and BPS users. 


ACB. The ACB macro produces an Access 
Method Control Block (ACB) for a VSE/VSAM 
file. The control block identifies the 
key-sequenced file and its index or the 
entry-sequenced file that is to be 
processed, and indicates the types of 
requests that are to be made. The ACB is 
Similar to a DIF in that it identifies the 
file to be processed. However, most 
information about the file, such as key 
length and record format, is specified in 
the DEFINE command of the access method 
services. Information supplied in this 
command resides in the VSAM catalog and is 
read into storage when the ACB is opened. 
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{|DTF Type Code| | ae | 
| (Byte 20) | i | 
jof DTF Table | DTF | Description | 
| ---—---—--—----++ --- + nt re mr aen ae nnnamenenneneenemnenmamtaneenceman ff 
{ xX*'OOo? | CTFCD | Combined files | 
\ x'ot! |DTFPT |Paper tape files . | 
| x¥*'O2' {DTFCD {Reader and 3881 Optical Mark Reader files | | 
| X*'O3! IDTFCN {Console | 
( X'o4qr J|CTFCD {Punch files I 
| X'ost [DIFCD |Reader files on 2560, 5424/5425 | 
f X'O7!t {|DIFPR |Printer files on 2560 | 
{ x'o8s? {DTFPR |Printer files | 
| x'ogs |DTFOR {Optical Reader files except 3881 and 3886 files i 
( Y'OA® {| DTFCR |Optical Reader files (HEADER=YES) | 
| X'OB* j|DTFMR |Magnetic Ink Character Recognition (MICR) and | 
i | {Optical Reader/Sorter files | 
] x'oc {DTFDR |3886 Optical Character Reader files ( 
{ x' 108 {DIFMT {Magnetic tape work files j 
| {| DTFCP {Magnetic tape work files (compiler). (Note 1) | 
| yrqt |DTFMT {Nonstandard or unlabeled tape files | 
| ¥* 12° |DTFMT {Standard labeled, output tape files | 
; J CTFPH {Standard labeled, output tape files (physical IOCS) | 
; Xx'138 {|DTFMT |Standard labeled, input tape files (read backward) | 
; y's {DIFMT |jStandard labeled, input tape files (read forward) | 
| X" 1A! |{DIFDU {Diskette Input/Output Unit files | 
{ ¥*208 |CTFSD {Sequential DASD work files and data files i 
| |DIFCP {DASD work files (compiler) | 
{ x'2i' {DTFPH {Sequential DASD files, MOUNTED=SINGLE (physical recs) | 
| X'22° {DTFDA |Direct access files | 
| Xx'238 {|DTFPH {Direct access files, MOUNTED=ALL (physical IOCS) me 
{ ¥'2yt {ILTFIS jIndexed sequential, LOAD file | 
| ¥"'25' {DTFIS |Indexed sequential, ADD file i 
| ¥"'26! |DIFIS {Indexed sequential, RETRVE file — | 
i ¥'27! |OTFIS {Indexed sequential, ADDRTR file | 
| x' 288 {ACB {Access Method Control Block for VSE/VSAM | 
i x" 30! | CTFCP {Compiler file for DOS Version 1 (Note 1) | 
| ¥'3' {|DTFCP {Compiler file for DOS Versions 2 onward | 
i X' 32! {|DTFCP {Compiler file for DOS Versions 2 onward (Note 2) | 
; X'33! {CTFLI |Device independent system unit files | 
] X'qor | DIF BT He Telecommunications Access Method - Extended Support | 
| | | (BTAM- ES) file (Notes 3 and 4) | 
1X"60" - X*67"| { [ 
Ms Sas as ack ee em ein is ee cea a eis as i eis ees vee 


ES ATED SA ID TY SEED ATTEND TTY OEY SAEED KS ES DRED TY PS TE LOIS CELT LG IED COLE LLES SELEY LLISD CTE RELL IY SEATED EERSTE CNS SETLES ‘ca sci accidents av essiebe co eiaahesion siouoemmaresb aaa ninemvel 


Figure 2. DIF Table Types 


1. DIF type is ¥'30' except for tape or DASD assigned to units SYS000 to SYSnnn. In 
this case, the DTFCP open phases change the DTF type to X¥'10" for tape work files, or 
X¥'20* for DASD work files. 

2. DTF type is ¥'32' except for DASD assigned to units SYS000 to SYSnnn. In this case, 

the DTFCP Oren phases change the DTF type to X¥'20' for DASD work files. 


3. The following control unit codes are ORed into the low-order 4 bits of the DTF type 


code. 
Control Unit Code 
7770 1 
2848 3 
2701 4 
2702 5 
2703 6 


4. The DTF tables for BTAM-EFS files are not documented in this manual. 
documented in the BITAM-EFS publications. 


They are 
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MOD (Module Generation) Macros 


Each DTF (except DTFCN, DTFPH, DTFSR, 
DTFDA, DTFSD, and DTFDI or DTFCP files 
residing on DASD) is linked to a logical 
IOCS module generated by an xxMOD macro 
instruction. These modules provide the 
necessary instructions to perform the 
input/output functions required by the 
problem program. For example, the module 
can read or write data, test for unusual 
input/output conditions, block or deblock 
records, or place logical records in a work 
area. 


Some of the module functions are 
provided on a selective basis, according to 
the parameters specified in the xxMOD macro 
instruction. The problem programmer has 
the option of selecting (or omitting) some 
of these functicns according to the 
requirements of his program. The omission 
of some of these functions results in 
smaller main-stcrage requirements for a 
particular module. 


There are two options for MOD macros. 
The user can: 


1. Insert the MOD macro instruction with 
its file parameters in the problem 
program source deck. In this case, the 
logic module is assemtled in line with 
the problem prcgranm. 


2. Choose to generate the logic modules 
needed for his file formats and system 
configuraticn. To do this, source 
decks using macro parameters to 
describe the file attributes are 
punched for each MOD macro statement. 
The logic module macro definition 
generates its own unique name, or the 
user can name the module in the name 
field of the MOD macro statement. The 
user name overrides the name the macro 
definition normally generates. | 


For each type of xxMOD macro, the problem 
programmer can generate, by issuing the 
macro with varying parameters for each 
required module, many logic modules. The 
logic modules must be cataloged in the 
relocatable library. The CATALR control 
cards are automatically generated when the 
module is assembled. 


At assembly time, the Assembler produces 
an EXYTRN (External Symbol) card for every 
V-type constant, or EXYTRN statement, in the 
user program. At the time this program is 
link edited, the Linkage Editor resolves 
these EXTRN symbols. When these are 
resolved, the program is cataloged into the 
core image library, from which it is called 
for execution. 


TRACK HOLD FUNCTION 


The track (or control interval) hold 
function provides DASD track protection 
when the parameter HOLD=YES is specified in 
the operand of the module generation macro 
(DAMOD/ISMOD) and the DTFSD/DTFDA/DTFIS 
macro. If a task has previously accessed a 
DASD track and is currently modifying a 
record from that track, DASD track 
protection prevents another task in storage 
from accessing that track. The task 
attempting to access the held track is put 
in the wait state until the track has been 
released. 


For DAM and ISAM, the problem program 
must issue the FREE macro to release a 
track held on READ operation. The module 
automatically holds and releases all tracks 
for WRITE operations. 


For sequential DASD, the track is held 
and freed implicitly by the logic modules. 


The track (or CI, for FBA) hold function 
is applicable to four situations: 


1. Sequential DASD update files (data). 


2. Sequential DASD work files with the 
UPDATE=YES parameter specified. 


3. DAM files. 


4. ISAM files. 


REENTERABLE MODULES 


A reenterable module is a logic module that 
more than one file. Including the 
RDONLY=YES parameter in the module 
generation macro generates a reenterable 
logic module. The RDONLY (read-only) 
parameter implies and assures, regardless 
of the processing requirements of any 
file(s) using the module, that the 
generated logic module is never modified in 
any way. To provide this feature, unique 
save areas, external to the logic module, 
are established, one for each task using 
the module. Each save area must be 72 
bytes and double-word aligned. A task must 
provide the address of its unique save area 
in register 13 before an imperative macro 
is issued to a file and a logic module 
entered by the task. 


The IBM-supplied logic modules used for 
DAM and sequential DASD (DTFSD, DTFCP, 
DTFDI) files are read-only and re-entrant, 
but do not require the user to provide a 
save area address in register 13 and will 
ignore such an address if provided. 
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Reenterable modules includes: CDMOD, 
CPMOD, DAMOD, DIMOD, DUMOD, ISMOD, MTMOD, 
and SDMOD. , 


INTERRELATIONSHIPS OF THE DECLARATIVE MACRO 
INSTRUCTIONS a, 


The DITFCD, DITFCP, DITFDA, DITFDI, DTFDR, 
DTFDU, DTFIS, DIFMR, DIFMT, DTFOR, DTFPR, 
DTFPT, and DTFSCD declarative macros are 
Similar in one respect. They each generate 
a DTF table that references an IOCS logic 
module. The first 20 bytes of each table 
have the same format; that is, a Command 
Control Block (CCB) and a logic module 
address. The remainder of each table is 
tailored to the particular device and file 
type. 


When one of these DTF macro instructions 
is encountered at assembly time, the 
assembler builds a DTF table tailored to 
the DIF parameters. The table contains: 


e Device CCB. 


e A V-type statement used by the Linkage 
Editor to resolve the linkage to the 
logic module with this DTF. For DTFSD 
and DTFDA, zeros are generated, since 
OPEN will dynamically fill in this field 
with the address of the IBM-supplied 
logic module. 


e Logic indicators; that is, one I/O area, 
two I/O areas, device type, and so on. 


e Addresses of all (except work files) of 
the areas and controls used by this 
device. 


Regardless of the method of assembling 
logic modules and DTF tables (that is, with 
the main program or separately), a symbolic 
linkage results between the DTF table and 
the logic module. Normally, the linkage 
editor resolves these linkages at edit 
time. However, for logic modules that 
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i Support Sam and DAM files on DASD, the 


Linkage Editor resolves these linkages at 
edit time. 


To accomplish the linkage between the 
DTF table and the logic module, the 
assembler generates a V-type address | 
constant in the DTF table and a named CSECT 
in the logic module. To resolve this 
linkage, the linkage symbols (module names) 
must be identical. Figure 3 shows the 


.relationship of the program (the imperative 


macro), the DTF, and the logic module. 
Imperative macros initiate the action to be 
performed on the file by branching to the 
logic module entry point generated in the 
DTF table. TAPE is the name of the file; 
IJFFBCWZ the name of the logic module. 


Problem Program DTF Table Module 


IJFFBCWZ MTMOD 


— DC V(IJFFBCWZ) 


= in DTFMT 
GET TAPE 


Figure 3. The Relationship Between 
Imperative and Declarative 


Macros 


IMPERATIVE MACROS 

The problem programmer issues imperative 
logical IOCS macro instructions to initiate 
such functions as opening a file, making 
records available for processing, writing 
records that have been processed, 
controlling physical device operations, 
etc. Figure 4 summarizes the macro 
instructions provided by IBM for logical 
IocsS. Figure 5 further defines the general 
function of each of the macro instructions 
and indicates the devices with which they 
are used. 
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7 eee ee 
fe eee dl 
ser eae! 
a ier 
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ee Seer 
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ens EEE TS 
a ae 
aoe ee 
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ae Sie 
ae ee 
es eine 
ae ae 
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Pee ae 
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DTFPH 


DTFOR 


DTFDU 


TFDR 


D 


oe 
a eee: 
ieee 
Baal 
Rees 
— 
a 
ae 
a 
ee 
PX 
ana 
Reaee 
rs 
fae 
ewe 
eel 
eae 
— 
eee 
eat 
eee 
eae! 
imeaeael 
aa 
Es 
Besa 
ia 
eas 


DTFCN 


x 
z2| > 
OQ _ 
uw 
uu 
= 2| 2) %| 2 
Oo [an an) 


DTFCD 


R) 


MACROS 
CLOSE| 
CNTRL 
ENDFL 
ERET 
ESETL 
[FEOV 
|FEOVD 
OPEN(R) 
POINTR 
POINTS 
POINTW 
IPRTOV 
[PUT 
PUTR 
RDLNE 
READ 
[RELSE 
[RESCN 
SEOV 
SETDEV 
SETFL 
SETL 
TRUNC 
WAITF 
WRITE 


Lu 
= 
Oo 
Zz 


FREE 
GET 
LBRET 
LITE 


2. Not for 2560 work files. 
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[| 1. Work files only. 
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TYPE OF PROCESSING WITH LOGICAL IOCS 


Sequential 


Indexed 


Sequential 





anamnou renvonbes] xT Deb TT TT TTT TT TT kT TT TTT KET LTT TT KT TTT 

soiies Wen ee [Lele ee eo aa es a epee aie 
fe a Ow od | Le ee eer rebel 
peo TTT tT be TT et EE EE Ee PETE ET et ET 
see an Oe oe ey i ee al 


ound ade] sade 
yound ade seded 8101 ST 
Japeay ede, 
sadeg ZL01/L29z| ~| | 
sjiup) ade] d1jaubeyy 
od pape rele PPL ELLLLL LL PELL Erp PPRLL RE 
Hur wndinC/induy 
moore“ TT TLETTT LLL LLL LT EEL EEE 
asvqd va4/0SEE/II-O€ee S 
_onsticebebefber tie SE NT et EL 
NOAW SCvS/vevS ‘WOAW 09SZ 
japeay SOSE/70SE/96SC x x 
/OVSZ/OCSZ/LOSZ/Zyrl 
NOAW SZHS/vZVS ‘WOAW 09SZ 
yaUNdg SCSE/OVGZ/O0ZSZ/TyPl 
Japeay sajdeseUuy 
Tong eT LECLERC ee ELEC 


49}40S/Japeay - 
12913100 GLZL/OLZL *x x} |< x |X x 
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vd 
bie ee wil >I> ”OIi~ a 
- wi |My |S fue pw wl mi} > wi wi) JO; te 
tu TOlLlOlSIZIEIZISIZi Ziel WII Alzlolo ale lo Rey Sus E/T LS |S fal al > 
Flo] S/S |g elrlale|<falaSe eel GIS IS lS e(e1E [ej le |r lolS|Slo| alu |ole| o/c 
Lu Lu | tL — uJ 
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Macro Instruction 


Initialize 
Process 

Set Mode 
Operations 





s Complete 


1. Applies only if DTFSR, OTFMT, DTFDA, or DTFPH LABADDR or XTNTXIT is specified. 


2. In the 2520 or 2540, GET normally reads cards in the read feed. If TYPEFLE 


Notes: 


GET reads 


CMBND is specified, 


cards at the punch —feed—read station. For the 3881, the WORKNAME operand is invalid. 


3. Put rewrites on input DASD records if UPDATE is specified. 


CMBND is 


4. In the 1442, 2520, or 2540, PUT punches an input card with additional information if TYPEFLE 


, and 5424/5425, if read/punch associated files are specified. 


specified; PUT is specified by the 2560, 3525 


5. Applies only to blocked input records. 


6. Applies only to blocked output records. 


7. Provided only for upward compatibility for BPS and BOS. 


8. Work files only. 


9. Applicable to 1419 and 1275 with the Pocket Light Feature. 
10. Not for 2560 or 5424/5425 with print feature. 


11. Display Operator Console only. 


12. CNTRL is treated as a no-op for FBA. 


13. Applies also to 3211 compatable printers (with device type code of PRT1). 


Logical IOCS Imperative Macros and Devices 


Figure 5. 
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IMPERATIVE MACRC EXPANSIONS 


For each imperative macro issued by the problem programmer, the Assembler program 
generates an in-line expansion that links the instruction to the DTF table (and thus the 
logic module) for the specified file. The filename used for the DTFxx macro describing 
the file must always be an operand of the imperative macro instruction. 


Typical expansions and brief descriptions of the function and procedure of each of the 
logical IOCS imperative macro instructions follow. 





Ge pe ss Seer 


|Label | CHECK|filenane, PARAM* | | 


LD CS ALAND CEN EY A CLD ANE RIE NS HN TTD SASL SREY REE CUNENS ESLER ED CN NO ETD cD AD ER EG ORS AE AC SY ARTES NI D A TE AO AIS AS SOTERA re i ERE. | 























= SS renner | 
| EL {1,=A(filename) |Loads address of DTF table. | 
| ---—--+------+----—---——_--— SS SS 
rr {L | |0,=A (PARM) |Loads address of control field. * { 
= SSS en nn mn rene eae e nent ee ae nen er mcn cm | 
| {L {7£,16(1) jLoads address of logic module. | 
| {BAL 1714,8(15) {Branch to CHECK routine in lcgic module. | 

ae I a an tk a oe Nee Rae eee Tl VaR ee SOR Sa ae eg 
* Optional 


operation Sora by a READ or WRITE macro “for the data file Beene. 


Procedure: This macro instruction waits for the completion of the input/output operation, | 
started by a READ or WRITE, for the device associated with the filename. If the I/0 
operation is completed without an error or other exceptional condition, CHECK returns 
control to the next sequential instruction. If the operation results in an unusual 
condition (FOV, EOF, overflow, errors), CHECK processes the user's option specified in 
the DTF. Then, if the unusual condition is resolved, control returns to the user. 
Generally, if the unusual condition is not resolved, the routine posts a bit in some area 
set aside to indicate the condition, or issues a message to the operator on the system 
console printer. 
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CLOSE Macro 














ey ae eet eg age Te me a es ER we gee ee ee ERG OUND gg nt ao Be fey Pieer Oe Gee Ee TN TEA Gee on Dag tet =" 
{Label |CLOSE|FILEA, ala eens { 
| ee ff ey oe OP Oe eT ee ae ee Ee ae eee hy wae kaw ge; ee ae oy See OF eee eee ee pencoun | 
| |CNOP {0,4 | | 
| [re {OF'O! | | | | 
| JLA 11,=C'$$BCLOSE? {Initializes to fetch Close Monitor. i 
jIJJCxxxx {BAL |0,*+4+06* (EN-1) |Register 0 points to the address of the DTF. | 
| {table for the first file in the file list. | 
| { | |The second operand causes a branch to the SVC] 
| | | : {2 instruction. { 
{ | D | A (FILEA) |Start of file list. ' 
{ {D | A (FILEB) { (The file list contains the addresses of the | 
| a | {|DTF tables for all the files Bpccaraee in the] 
] |. | |CLOSE macro operand.) | | 
| |- | | | | 

| 1DC JA (FILEnr) |Address of the DTF table for the last file 

f { | {specified in the CLOSF macro operand. 
{--~---—--—-——- |---| -— OO OOO _ ee eer 

| jSVC 42 {Fetches the Close Monitor, $$BCLOSE. 








{FILEn = Symbolic address of the DTF table for the last file specified in the CLOSE 
macro operand. 

N = Sequence number of a file (1, 2, 3) in the order it appears in ‘the CLOSE macro 
operand. 7 

&N = N of last file +1. 





(== = 


A AS DD AS ASS AE AS A TA a AN NS ST I A SS TY A SY A OND AS AD Se en Re | 





Function: The CLOSE macro instruction deactivates any file previously opened on any 
input/output unit in the system. The symbolic name of the logical file, assigned in the 
DTF header entry, is required in this instruction. Up to 16 files can be closed by one 
instruction by entering additional filename parameters. CLOSE is required whenever 
logical IOCS macro instructions have been used to transfer data, and the file has been © 
EreunOte opened. , 


logical transient area to determine the device type assigned to the file. 


For the card readers, card punches, printers, CLOSE simply sets a bit off in the DTF 
table to indicate that the file is no longer available for processing. For magnetic 
tape, DASD, and MICR devices, the monitor calls the appropriate device-oriented close 
logical transient. For magnetic tape and DASD files, the CLOSE macro instruction causes 
trailer label processing for an input file, and trailer label creation for an output 
file, if necessary. If a magnetic tape file is being closed, the rewind option selected 
is executed. The file is deactivated by setting a bit off in the DTF table to indicate 
that the file is no longer available for processing. 


For Diskette I/O Unit input files, the diskette is fed out and the file is 
deactivated. For output files, the HDR1 label is updated to reflect the proper 
end-of-data, the diskette is fed out, and the file is deactivated. The following table 
defines feed control: 




















| aa See ee ee ep Re Pe ee Ee ee Fe ee rg Ee ee eg ee Pr 
| | Input -- | Output -- ] Input -- | Output -- 
| | Programmer | Programmer | System { System 
| { Logical Unit { Logical Unit [ Logical Unit | Logical Unit 
SSS SS SS SS 
DTFCP | A | A | N | A 
DTFDI | NA | NA ; | N { A 
DTFDU | S | S { N | N 
A 


1 
ERD GPU CUES TTT SHEP SEEN ERG RED NED GENO GEA KEES EGE OEY ANY OLY TD CRITE AND ERED ED TED CA CREE PT LEED EL CED PSTD EY CED CNETD CMG AOSD CAEN SEED SETED | 





PD CY A A TC CE A HPA AS CY A A SS CS OEE NS TR 


A -- always feed at close 
S -- user can suppress feed at close 
N -- never feed at close 

| NA-- not applicable 


| aaa ELD: CRD AT CHD CEP TRAE GAS COMED TEP ATID EMD ARID AE CED AED IEE AID TEED TG CLS SITIES POO GPA TTS ORD STDC NG ALG AGS CE CTY ALD SAY CISD LT OED ED IY PODS CS TS CES TTD IS SN SED OS CGT SES ID COLES ND CD SSSR 


| 
| 
| 
| DTFPH | A | A | N { 
| 
| 
| 
| 


[cies eee 


If physical IOCS is used, CLOSE is required only when standard labels are to be checked 
or written. 
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=e aD emp «a awe SS eee ae 
= “. = e :# ~ x 























{Label {CLOSER | FILEA,FILEB,...,FILEn { 
| ~- ee a a a eee | 

{ |CNCP 10,4 | 

| {DC {OF*O? H 

| |B |*+8 | 

| {DC | A (*) | Address used by CLOSER for relocation. 

| |LA 11,*-4 . | Loads actual location address. 

| | MVI }*-4,x'5e8 {Disable subsequent relocation. 

| {L }0,*-12 {Loads relocation factor. 

| 1SR {1,0 | {Finds displacement value. 

| ~--——— 4 nt nn nn nr tran eee een neeneemnteneaemen cence ceece 

| | | 

{ }L 10, IJICXXXxX+N*4 {Gets address of DTF table for file to be 

| | | | opened. 

| } AR jo, 1 J}Adds displacement value. 

| {ST 10, ITS ICXxXxx+N*4 {Returns new DTF table address to file list. 

| | | 

| { | | (The three instructions listed are repeated 

| | | |for each file specified in the OPENR macro 

| | | joperand starting with FILEA.) 

| ----—------— +--—--—--+-—--—--— ——— ne etn ene croc eecienene meecntateen em mene earcememceemenemtmeerns f 

{ {LA {1,=C'f$BCLOSE! | Initializes to fetch fSBCLOSE. 1 
i JCNCP {0,4 { : | 

J IJIJCxxxx | BAL }0,*+4+4* (EN-1) | {Register 0 points to the address of the DIF |- 
| | | | jtable for first in the file list. The second|- 
| | | joperand causes a branch to the SVC 2 | 

{ | | Jinstruction. ' 
| ---—----- --- + ------+ --—--- -—--—-- -- + ———— nnn | 

| Dc {A (FILEA) {Start of file list. 1 
| | DC {A (FILEB) | (The file list contains the addresses of the | 

| ls | |DTF tables for all files specified in the | 

| |- { {CLOSER macro operand.) | is 
| {Dc | A(FILEn) [Address of the DTF table for the last file in| 

| | | [the CLOSER macro operand. ‘|: 
| ---—--—-—--——— +--+ cr nn err ee m c  ce fmmenne nanan | 

| 


{SVC {2 |Fetches Close Monitor, $$BCLOSE. | 





|FILEn = Symbolic address of the DTF table for the last file specified in the CLOSER 
macro operand. 








PED SPOS TADS ETS SEED ELD EI GAS ADP EE ED APG GAD BES ACD AAT END YTD AED LD N-ANP TS LEY ELTA TENS SN LED 


| 

| 

| 

| 

| 

&6N = N of the last file +1. 1 
entpeniaiall 








1 

l 

| N = Sequence number of a file (1, 2, 3), in the order it appears in the CLOSER 

| macro operand 

| 

t 

bea a aarti i ha a a tec 
Functions The CLOSER macro instruction deactivates files used by self-relocating 
programs. 

Procedure; The CLOSER macro instruction performs its function in the same manner as the- 
CLOSE macro. 
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ee 
[Label | CNTRI|filename,code, nt, n? a 7 | 114243) 
(4 = = Se eS 
| | L 11,=A(filename) {Loads address of DTF table. | *| *] *! 
| | MVI [{23(1) ,code }Puts control code in the DTF table 1 Tepe 
| | | [if delayed printer control. i; fet 
| | LA {0,code |Loads control code. ;*] | *] 
| ! L 115,16 (1) |Loads address of logic module. (* > |*] 
ie | BALR {14,15 | {Branch to CNTRL routine in logic module. | pey pee 
(SS eS ee ee ae —| 
{1. Instruction assembled if skip or space immediate is specified. [ 
}2. Instruction assembled if delayed skip or space is specified. { 
{3. Instruction assembled if both delayed and immediate skip and space are specified. | 
ae a a es Se ee ee a ee ee Se Se ee ere ee en 3 Cate a sae scence aia ais wns tac eiae csc sancchertas teas Sakis sis anc cin nt es Ieee 
Ce ye ee ee Oe ep ge ea are ae ny ee ee eh ga ee EO foe OM A Re ee TOSS oe hee | Hae Geer AO ge ae TEE Rpg oe qe ea es Mag a ae cet Fe oes eg a ee hg ee oe ee 
[Label { CNTRL|{filename,code, n!, né2 | 
RAR Oe Ee ee Re ee OREN ne ee ea ee OP ee | 

L }1,=A(filename) {Loads address of DTF table. : | 

MVI |72(1),code {Puts command code for DMK, LMK, and ESP on a 3886 to the | 


{CCW in the DTF. 
MVC {*+11(1),fldname|Generated if code is ESP and n? is fldname. Move byte at| 
| |fldname to second DC of parameter list (DC generated { 


| jlater). 
MVC |{*+11(1),0(r) {Same, but n? is a register. 
BAL |{0,*+6 |Generated if n! is a number. 
DC }AL1(n2) {Generated if code is LMK or FSP and n? is a number. 
DC | AL1(0) {Generated if code is LMK or ESP and n? is fldname or a 


| |register. The value is filled in by one of the MVC 
| jinstructions déscribed above. 


amp ese ams SSR eT ee Le eee ee OO ae 


| 
| 
| 
| 
| 
| 
| 
| 
! DC JAL1(n!) jJAlways generated if BAL is generated. 
| 
| 
| 
| 
| 
| 
| 


L {0,=A(fldname) 1Generated if code is DMK or LMK and n2 is fldname. 
LR !0;r {|Same, but n? is a register other than register 0. 
L 115, 16 (1) {Loads address: of logic module. 

BALR {14,15 | {Branch to CNTRL routine in logic module. 


| EE AAT ANT CRN OD CE TS NY ND NS TY AS A A TS SS AS A LE OS TE NA A NN OA ND AR ES NY SND MEY SLND COND GUND GEN COND SINNED NED CANNON CONROE 





ee PEED SERED Ep RED CURE ARES REET Ee eOET ENA RTT ORNATE UT CCEA SoD 


|CNTRL expansion for the 3886 Optical Character Reader. 


a cc sce ana ei Soi eas eos deciles ee EES CS CE ED ERD COD TNE CEES OEY SERET OSR E  OD E C E AE CED SS RCD SE CE EE TH 


| 
} | 


STO RD AD cE AEOENRARD CORI CONN HERD OLAS eccED eS RA AAD cae CE HOED 











Function: The CNTRL (control) macro instruction provides commands for these input/output 
units: magnetic tape units, card reader-punches, punches, DASD, printers, and 3881 and 
3886 optical readers. Commands apply to physical nondata operations of a unit and are 
peculiar to the unit involved. They specify such functions as rewinding tape, stacker 
selection of cards and documents, line spacing on a printer, etc. When a CNTRL macro is 
executed, the routine waits for completion of the operation before returning control to 
the user. On DASD, however, control returns at channel end. 


Whenever CNTRL is to be issued in the problem program, the DTF entry CONTFOL=YES must 
be included in the file definition (except in DTFDR and DTFMT). 


The CNTRL macro instruction must not be used for printer or punch files, if the data 
records contain control characters “and the entry CTLCHR= is included in the file 
definition (DTF) macro. 


Procedure: The control routine waits for completion of any previous operation of the 
file. Then the device symbolic address is moved to the CCB. The command code is moved 
to the CCW, and the CCB address is loaded into register 1. Next an SVC 0 is issued to 
perform the control function indicated by the CNTRL macro instruction. Then control 
returns to the problem program. CNTRL is treated as a no-op for sequential (DTFSD) 
files. 


22 LIOCS Volume 1, General Information and Imperative Macros 


Licensed Program - Property of IBM 





a ee ee a ee 
|Label |DISEN|{filename 
= Se eee SS SS | 
| | L 11,=A(filename) |Loads address of DTF table. | 
| | | | | | 
| {L }15,16(1) |Loads address of logic module. | 
| | | [ | 
| {BAL |{14,12(15) {Branch to DISEN routine in logic module. i 
ea nn ee aap eee ee eS ne NE EN eC SN Se SS ENE PE EE ON a ee aT EET Pe ee I Oy a RO net ee a et pe ee ee re IE Se ee pes | 
Function: The DISEN (disengage) macro stops the feeding of documents through a magnetic 
ink character reader (MICF) or Optical Reader/Sorter. 


Procedure: The DISEN macro modifies the instructions in the CCW chain and sets the 
disengage bit (bit 0 of byte 21) in the DTF table. Control returns to the problem 
program at the next sequential instruction following the DISEN macro expansion without 
waiting for completion of the disengage operation. 


DSPLY Macro 


| ae a er ne ea mm i a ae 





{Label |DSPLY|filename,ri,r2 | | 
{ an a a en ee Gee fe ee tak Ges ee g ee ge aS Eee | Pee ey ee | 
| L {1,=A(filename) |Loads address of DTF table. | 


| 
| iMVC 1{88(8,1),O0(r2) {Puts Load Format CCW for document coordinates of field to be| 
| | | {displayed in DTF table. | | 
| IMVC |{96(16,1),0(r1) | Puts Load Format CCW for document coordinates of reference | 
{. | | {mark for field to be displayed in DTF table. | 
{ 1 L 115,16 (1) {Loads address of logic module. { 
| {BAL |{14,20(15) {Branch to DSPLY routine in logic module. | ] 





2 CLEATS ED ATES SED EAE SEERA 








Function: The DSPLY macro displays a specific field on the display scope of the IBM 1287 
Optical Reader for entering the field from the keyboard. The DSPLY macro should be used 
in Document Mode only. 


The macro requires three parameters, none of which can be omitted. The first 
parameter is the symbolic name of the 1287 file as specified in the DTFOR header entry. 
This parameter may also be a register that contains the address of the file. The second 
parameter must be a register that contains the address of the CCW defining the 
coordinates of the field to be displayed. The third parameter must also be a register 
that contains the address of the landmark defining CCW. 


Procedure: If the reader cannot scan a complete field due to specific characters or 
fields running together, the field containing the error is retried by PIOCS. If still 
unsuccessful, the user is informed of the condition via his error correction routine 
(specified in the DTFOR COREXIT entry). The DSPLY macro is then issued to display the 
field in question on the 1287 display scope. The operator can then key in the correct 
characters. If an error is made in keying in the characters, the operator should press 


the cancel key ard then the enter key, and the field will be redisplayed. 


ENDFL Macro 














{Label |ENDFL|filename ] 
| ---~—-+-—----+-----—- a = ere cane meen <a —anare menerrcememnennmn-ee wen enema eames ee en enna racemes | 
| {L {0,=A(filename) |Loads address of DTF table. | 
| {LA {1,C'f$BENDFL' |Loads B-transient phase name. | 
{ 1svc {2 |Fetches phase $$BENDFL. | | 
Cs a i a a an, Sa a is ce es a cs ns em ca ee ew ees Mca ip he a ig ca ase i el it ee eG ai aa a ag te aca eas 
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by the SETFL macro. The name of the file that has been loaded is the only parameter 
required, and must be the same as the name specified in the file definition (DTF) macro. 


Procedure: The ENDFL macro instruction performs a close operation for a file that was 
just loaded. It writes the last block of data records, if necessary, and then writes a 
DASD end-of-file record after the last record written. The EOF record is-a DASD record 
with a data length of zero. The routine also updates the index entries as required, and 
writes dummy index entries for the unused portion of the prime data extent. Control then 


returns to the problem progran. 


ERET Macro 

a a a a a a a a ee 
{Label |ERET| | | 
(== a a ee | 
| |B 1 0(14) | If operand is SKIP. | | | 
{ |B ; 4°14) | If operand is IGNORE. | [ 
| |B 1 8(14) | If operand is RETRY. | 
i i a a aac a ca sehen ee peg ese i cs sates ie seas css Ss ha pi i es se ig cee ea a ser se pees hemi sae Sst i Ses ee le a ina ce a a 


routine in the problem program when ERREXT=YES is specified in the DTF macro. The choice 
of one of the three operands provided (SKIP, IGNORE, or RETRY) allows the problem. 
programmer to select the subsequent action of the logic module. The problem programmer 
should select his operand based on the nature of the error as analyzed within his 
routine. | | 


instruction to return control to the logic module. Register 14 in the generated branch 
instruction contains the address of the return point in the module. The macro operand 
(SKIP, IGNORE, or RETRY) supplies the displacement (0, 4, or 8 bytes respectively) from 
the return point of an instruction that returns control to the desired reentry point in 
the logic module. 


Weep ee Tp ee Ce I ee ea GE Ee. Dg ee EE ee ey EES A EP Ee EE ee Ee FOR TE gt pe He gr eg as eee Sy EET Oo ee eae UE age eg a eS eg 
|Label |ESETL|filename | | 
Feecaraseenacs cue mcnenier za hm er rene | 
| | L }1,=A(filename) |Loads address of DTF table. | | [ | 
[ { L {15,16(1) {Loads address of logic module. : ) | 
| {BAL |{14,20(15) |Branch to ESETL routine in logic module. | 
Mn a a an a a a a a a a cl as anc le a ies ac a ces ae ccc cs cs cele mes a ees ees see ec eos es Sec weed es ae wae Seen Sain es dees ence cas mins naan ee eens eo eae aac all 


Function: The ESFTL (End SET Limit) macro instruction ends the sequential mode initiated 
by the SETL macro. | 


Procedure: If blocked records are specified, ESETL writes the last block if a PUT macro 
was issued. | | : 





FEOV Macro 

SS ee eS ee eee 
j|Label|FEOV |filename 

SS eee 
| {L |1,=A(filename) |Loads address of DTF table. 

{ | L 115,16(1) JLoads address of logic module. 

i {BAL |14,16(15) {Branch to FEOV routine in logic module. 

& 


a 


LU OD COS DN CLD AMER ERE ST OE CR ORY SED ONE CACY SETUPS END CTT ai SEEN SAD OEY ELS SN GERD SE AE ATED AD OS ED EES HOD TAD WN EID LED AMAT AA RD SS I EE ATA NG CED A OE LDP LS AN OT AT AORN CLES TS SEP ATTY OE REED TR SRN CY RTE MRT ANE LY INES ENED RCA TUT 


24 LIOCS Volume 1, General Information and Imperative Macros 


Licensed Program - Property of IBM 


files on magnetic tape or DASD devices to force an end-of-volume condition when neither 
an EOF indicator nor a reflective marker has been sensed. It indicates that processing 
of records on one volume is considered finished, but that more records for the same 
logical file are to be read from, or written on, the following volume. 


The FEOV macro fetches the EOF/EOV Monitor, $$BCEOV1, to close the current volume and 
open the new volume. 


switch in the PUT routine. For an input file, the FOV switch in the GET routine is set. 
For PUT, a record is written as required, and control returns to the user. 


FEOQVD Macro 








ep a pre ee a a pe Peg ee ed ee at ie ve oe ep ee aE Pea BN ge ee Ga ee EN RNC G Cte a aa ge RET Na Rg hae FF eG ae y TT es Ce eM eg eg ee a egg ope ee oe ane 
jLabel |FEOVD|filename | 
| ---—--—_- + -—___-|-—- oe ee ee ee 
| [LA 11,=CL8'S$S$BOSDEV' |Loads address of logic module. | 
{LT JJOxxxx| BAL }0,*+8 | | 
| {DC |A (filename) | | 
ISVC 42 {Fetch phase $$BOSDEV. | 
rr a ce ce ses ei ses cn sees ech ws cars es ae cs oii i tr ca ei in’ er cc cen en ci i a ea i sie Secs em <email ste aise sl 


Function: The FEOVD (Forced End-of-Volume for Disk) macro instruction is used for either 
input or output files in sequential disk processing to force an end-of-volume condition 
before end-of-volume has actually been reached. It indicates that record processing on 
one volume is finished, but that more records for the same logical file are to be read 
from, or written on, the following volume. If no extents are available on the new 
volume, the job is canceled. 


The FEOVD macro fetches $$BOSDEV to close the current volume and open a new volume. 


Procedure: When FEOVD is issued, an end of extent switch is set in the DTFSD. When the 


next GET or PUT is issued, end of extent is detected and the open transients are called. 








a a a 
{|Label|FREE |filename _ | 
| mmm a ene amen enema aemeeneenamemmemneeeen means f 
{ {1 {1,=A(filename) |Loads address of DTF table. | 
| | L {15,16(1) |Loads address of logic module. | 
| {BAL |{14,44(15) {Branch to FREE routine in the logic module. { 
an a a es a eee oe ee ee ee ee ee i a i i i ts Sepa ie as mk Sk Cac es ces was cous ee i sl i as Se ea ce ce a eee ea col 





Function: The FREE macro instruction releases a protected track (Track hold function 


included for Asynchronous Processing) on a direct access storage device. 


Procedure; The FREE routine in the logic module determines the seek address of the 
protected (held) track, and loads the address of the control seek CCB into general 
register 1. The routine then issues an SVC 36 to free the track. For sequential DASD 
files, FREE is treated as a no-op since the holding and freeing of tracks (or control 
intervals) is done implicitly by the logic modules. 
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GET Macro 

Ce a ee ere 
{Label | GET |filename, PARAM* | | 
== SS i a ne ne entices mem { 
| | L 11,=A(filename) |Loads address of DTF table. { 
SS SS SS ee SS an REEnmenemen | 
{ } L }0,=A(PARAM) [Loads address of work area if specified. * — an | 
=== === SS Se So em meee ieee mnt ae anene-amennniineememeanaeininmmcmies | 
| | L 115,16 (1) {Loads address of logic module. | 
{ } BAL {414,8(15) {Branch to. GET routine in logic module. | 
a a a ee ae ee eae ee ee te oe ae cae es 





* Optional 


available for processing in either an input area or a specified work area. It is used 
for any input file in the system, and for any type of record: blocked or unblocked, 
spanned or unspanned, fixed or variable length, and undefined. When the GET routine 
detects an end-of-volume or an end-of-file condition, it calls in the EOV/EOF monitor, 
which initiates the correct file termination procedures. 

The GET macro instruction is written with one or two parameters, depending on the area 
where the records will be processed. Either form, but not both, can be used for one 
logical file. If records are to be processed directly in the input area(s), the GET 
macro instructicn requires only one parameter. This parameter specifies the name of the 
file from which the record is to be retrieved. The file name must be the same as the one 
specified in the DTF header entry for the file. 


The second parameter is optional, and if used, specifies the address (or a register 
containing the address) of the work area. This parameter is used if records are to be 
processed in a work area defined by the user. The second parameter causes the GET 
routine to move each logical record from the input area to the work area. 


Procedure: Two input areas permit an overlap of data transfer and processing operations. 
Whenever two input areas are specified, the LIOCS routines transfer records alternately 
to each area (except when combined files are specified). The LIOCS routines completely 
handle the switching of I/O areas so that the next sequential record is always available 
to the problem program for processing. If the file is blocked, it is not necessary to 
transfer data from the input device to main storage on every GET instruction. Only when 
the first record of a block is required (blocked records), is it necessary to transfer 
data. | 


If overlap is possible, the transfer of data required for the current GET was 
initiated on a previous GFT. If overlap is not possible, it is necessary to start data 
transfer, read data, and wait for completion of the I/O operation. The handling of the 
data is done after a test for unusual condition is made. Unusual conditions are: end of 
reel, wrong-length record, irrecoverable error, no record found, etc. 


LBRET Macro 








SE a a a a a a arr 
| Label|IBRET]1 | | 
eS eS SS a ae 
{ {SR }1,1 |Zero register 1. | 
| }svc |9 {Return to logical I0ocs. | 
Ci Sc wn ca a i rs ne ec eee pee Snes mes em ca cc memo ec ic ame ee Sc es ts i ei iii ts ict iii i is a ec el angi is a apis 
ti a a a a a a aa a a ee 
j|Label |LBRET]|2 | 
| mm a a rn nnn | 
| {svc 49 |Return to logical IoOCS. | 
Ca a a a a a a aa a i ces cea ns tan Sa tcc as ca i on aries em nea Sea eis RS Ss cm es a ee Ol 


26 LIOCS Volume 1, General Information and Imperative Macros 


Licensed Program - Property of TBM 


DS Pe ee a re ey Oe er Ag ey Gh dg Tee og fg pan ge gen aOR, Wen, IPP aie Porgy Og PE re ey gr a SO oe Me dee, Mt EY ee See eae ee eae 
|Label |LBRET|3 | 
(eS ee ee eS eS eS | 
i JLNR {1,1 {Put negative value in register 1. | 
{ ;svc {9 . (Return to logical IOCS. | 
a as en ei eee i es li nin cee is ain celeste misao so Ss tvs cs Sui Ses ah i i i's ew we in mine ii cnt Zayas ss eis Si’ Sms ms anc ce el a a Sn ena wn sem si Sm col 


Function: The LBRET (LaBel RETurn) macro instruction provides the return from: 
1. Your routine for the processing of additional user labels or nonstandard labels that 
you want to check or write. | 


2. Your routine for any examination or processing of extent information during the 
direct access open of a DASD file. 


To return from a label processing routine (specified by the DTF entry LABADDR), issue the 
LBRET macro after each user's header or trailer label is processed. Tape files need an 
operand of 1 or 2, while DASD label routines use all three operands as required. 


To return from an extent processing routine (specified by the DTF entry YUTNTYIT), 
issue the LBRET macro after handling each extent. An operand of 2 passes the next extent 
to your routine. After processing the last extent, an operand of 1 signifies to LIOCS © 
that all user extent processing has been completed. : 


Procedure for Tape and DASD Labels: 

1. Input Files. The LBRFT macro checks for an operand of 1. If one, the user label 
processing is terminated and any additional labels are skipped. If all the labels on 
an input file are to he processed, the LBRET 1 macro is not needed. That is, IOCS 
ends processing when the DASD end-of-file record or the tapemark is sensed. 


2e Output Files. -LBRFET 1 is required to return to logical IOCS when all user labels 
have been created and written. Otherwise, LIOCS terminates label processing after a 
maximum of 8 header or (where allowed) 8 trailer labels. 


Operand 1 is invalid for tape input files that contain nonstandard labels (FILABL=NSTD). 


Operand 2 (input file) returns to LIOCS after each additional user standard label has 
been checked. LIOCS makes the next label, if present, available for checking in the 
label input area. When IOCS senses the end of the label set (DASD end-of-file record or 
tapemark), it terminates label processing. 


Operand 2 (output file) returns to LIOCS after each additional user standard label 
except the last has been built. LIOCS writes the label from the label output area and 
returns to the user's label routine to permit him to build his next label. LBRET 1 
terminates the label set or it is terminated after 8 header or 8 trailer labels have been 
written. a 


For nonstandard tape labels, LIOCS branches to the user's label routine only once, and 
the problem program must read or write every required label before issuing LBRET 2 to 
return to LIOCS. 


Procedure for DASD Extents: The LBRET macro checks for an operand of 2 to determine if 
the user desires any additional extents for examination. Control passes between LIOCS 
and the user's routine for each extent requested until an operand of 1 terminates extent 
processing for this file. 


Operand 3 causes LIOCS to write an updated label onto a DASD input file. After 
writing the updated label, LBRET 2 procedures are followed. 


the contents before returning to LIOCS via the LBRET macro instruction. 
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LITE Macro 


|Label|LITE| filename, PARAM | | 








{= SS a aa. 
| {1 {1,=A(filename)  |Loads address of DTF table. | 
a | {L |0,=A (PARAM) {Loads address of user's 2-byte pocket light Snaicakok, | 
| |L }15,16(1) J}Loads address of logic module. | 
| {BAL 4{14,16(15) {Branch to pocket light routine in the logic module. | 
te sesso pieces sna es we wie sa wer es eae co Sl es ar ms a su ecm ol Si se pes sp tin sno ini i cms Si in-out nen ial 
Function: The LITE macro turns on the 1275/1419 pocket lights specified by the problem 
ogrammer. . 


Note: The problem program must issue a DISEN macro before issuing a LITE macro. 


Procedure: The LITE macro turns on the pocket lights that are specified by setting 
indicators (bits) in a 2-byte field identified in the macro operand. When all the 
specified pocket lights are turned on, control returns to the problem program at the next 
sequential instruction following the LITE macro expansion. 


NOTE Macro 


ee ee ee ee ee BS TEED OED ATS GSD CED OES GTA SS A RRS EN SLD MY ED CRED ERD KPC SED SP TED ORT GS ORD CTY TD CEE COED EE SEP CIAES CDAD cH AE ETS TE | 


{Label|NOTE|filename 


| -----4----4-------------_---------_----_-- 





: {1 11,=A(filename) |Loads address of DTF table. 
| {L 115, 16(1) |Loads address of logic module. 
‘ {BAL 414,12(15) {Branch to NOTE routine in logic module. 


a is ee eee ee et See ea a, 


ee a 














3: The NOTE macro instruction retains the identification of a physical record just 
written in a specified file. 


The user must ensure that the previous operation was completed satisfactorily by using 
the CHECK macre before issuing a NOTE. The record identification is placed in register 
1. | 


Procedure: For a tape file, this routine loads the physical record count into register 1, 


and control returns to ehe. user. 


For DASD, register 1 is loaded with the four bytes identifying the cylinder, head, and 
record number (CCHR) or BBBn for control interval format, where: 


BBB = physical Block Number of the Control interval anda 
n = the logical block number within the control interval. 


If NOTE follows a WRITE macro, the unused Space remaining on the track or control 
interval is loaded into register 0. 
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SS a ee ent ein tre Re a ee ae eS 
{Label [OPEN |FILEA,FILEB,...,FILEn ‘| 
|--— rrp fe cn nr ern cree an cee en re can ecm ene ne eee eean mee eee nee cu eam ence cue ene cemeemme ema | 
| |CNOP |0,4 | | | 
| |Dc |OF'O! | . | 
| |LA 11,=C'$#BOPEN' {Initializes to fetch the TES processor. | 
|} IJJOxxxx {BAL |{0,*+4+4* (&N-1) {Register 0 points to the address of the DTF | 
| | | |Itable for the first file in the file list. §| 
; | | |The second operand causes a branch to the | 
| | | {Svc 2 instruction. { 
(SS ee nnn | 
{ IDC  4A(FILEA) © |Start of the file list. sf 
| }DC | A (FILEB) |} (The file list contains the addresses of the | 
| te. { | | {DTF tables for all of the files specified in-| 
| |. | ae jthe operand of the OPEN macro.) | 
| {Dc JA (FILEn) {Address of the DTF table for the last file § | 
{ | { | [specified in the OPEN macro operand. | 
SS ee ee ae ee aS Se 
| : ISVC | 2 | Fetches the TES processor, S$S$BOPEN. | 
|----—---—--- — = SS = 
{|FILEn = Symbolic address of the DTF table for the last file specified in the OPEN macro] 
| operand. | 
| . | , | 
| N = Sequence number of a file (1, 2, 3, etc.), in the order it appears in the OPEN | 
| macro operand. “| 
| Z| 
{ &N = N of the last file +1. | 

= | 


Gros Sects ccc ei eee REL: SLL SELLE LE LL GIES RIES EEE GEIST EEA SLED AGG SLT TALS ALS OEY SE SY RS CATS LIP LID ED GD OY ES LL LD AD SCID ATS HD SS SL CED NT SE RDS CED LER SEAT ORD OLED SRS ee CRED COR eS ESD SORENESS SE EEE SOD SED EID GOED 





Function: The OPEN macro instruction activates each file in the problem program. The 
symbolic name of the logical file (assigned by the DTF header entry) is entered in the 
Operand field of this instruction. Up to 16 files may be opened with an OPEN macro 

instruction by entering the filenames in the operand field. If physical I0cS is used, 


OPEN is required only when standard labels are to be checked or created. 


Procedure: The OPEN macro instruction ‘calls the TES processor, $#BOPEN, into the logical 
transient area. The monitor checks for the device type assigned to the file, and calls 
the appropriate device-oriented open logical transient. The tape, diskette, and DASD 
open transients do all processing required to check or create standard labels for their 
respective files. For devices other than magnetic tape, diskette, or DASD an indicator - 


is set in the DIF table to show that these files have been opened. 


OPENC Macro 


®, 
" 
































LS APL STIS ID 





I 
n 


= a maximum of 16 symbolic units (either system or programmer) can be included in the] 
macro operand. | 


hss: cui’ a cS cri ei tea eas hc des eb nies ls SLPS CSET ANTS CO AD AED CET CED TD COED SE CAPS EY A NES ELD SS LT NS AED CYS ED IPAS TEND E RTE SENTP LD T 


Fee een a a 
[Label JOPENC| SYSxxx1,SYSxxx2,.....SYSXXxn 1. 
| ~—-——— ———  —- — re <a So a re ae ae mene neers f 

{ {LA 11,=C'S$BOPENC'| Loads name of B-transient. ‘| 

| | BAL 10,1 JJOxxxx |Branch to fetch B-transient. | 

| {DC }AL1(class) ! {Logical unit class for SYSxxx!. | 

| {Dc JAL1 (number)! |Logical unit number for SYSxxx!. | 

: {Dc | AL1(class) 2 {Logical unit class for SYSxxx2. { 

| jDC {AL7(number)2 |Logical unit number for SYSxxx2. | 

| [- | | ~ 7 3 | 

| i f- i | . l 

{ | DC JAL1(class)n | Logical unit class for last SYSxxx in list. i 

| {Dc JAL1(number)n |Logical unit number for last SYSxxx in list. | 

{ dada }svc 42 {Fetches phase $$BOPENC. | 

| 

| 

{ 


LLNS DEP TTS SLD CLES ETD SAS AEDES RES moan 





Function: The OPENC macro instruction determines if a physical device is assigned to more 
than one of the symbolic units specified in the macro operand. A maximum of 16 symbolic 
units can be checked with a single macro instruction. 


Introduction 29 


Licensed Program - Property of IBM 


Procedure; The OPENC macro instruction calls the logical transient, $SBOPENC, which 
checks each symbolic unit specified in the macro operand in turn. $$BOPENC determines 
the PUB entry address specified in the LUB for the corresponding symbolic unit, and 
compares it to the PUB entry addresses of each of the remaining symbolic.units in the 
macro operand. If an equal comparison results between the PUB addresses of any two _ 
symbolic units, an error message is printed and the job is canceled. . 


OPENR Macro 














| (The three instructions listed are repeated 
}for each file specified in the OPENR macro 
Joperand starting with FILEA.) 


(SSS SS Se 
jLabel | OPENR |FILEA,FILEB,...,FILEn 

( Js CA, a Ae a ama a em 
| | CNOP {0,4 | 

1 Dc JOF'OF | | 

{ | LA [1,1 JJOxxxxt4 |Loads actual location address. 

| {| MVI j*-4,¥'588 |} Disable subsequent relocation. 

i 1} L §|0,I33Oxxxx+4 : |Loads relocation factor. 

{ | SR 11,0 | {Finds displacement value. | 

| a nf nn nn nnn nnn non a re err eee <a 
| L (0, TITOxxxxt+4+4rn |Gets address of DIF table for file to be 

| lopened. | | 

| AR {0,1 }Adds displacement value. 

| st JO, IIJOXxxxt+4+4*Nn jReturns new DTF table address to file list. 

| 

| 

{ 

| 











| LA 1,=C'SE$BOPENR! | }Initializes to fetch $$BOPENR. 
| CNOP 10,4 
{IJ JOxxxx B 0, *+8+4* (§N-1) }Register 0 points to the address used for 


Jrelocation. The second operand causes a. 
[branch to the SVC 2 instruction. 
aes svi ca cami isan Saisie ine sh ae —}—--—--— 

















| j cc {A (*) JAddress used by OPENR for relocation. 

| | DC {A (FILEA) Start of file list. 

{ | oc | A (FIL EB) |(The file list contains ADCONS for the . 

{ |. { jaddresses of the DTF tables for all the files | 
| } . | : |specified in the operand of the OPENR macro.) | 
| } Dc } A (FILEn) JADCON for last file in file list. | 
|----—---—_ + ---- _-__|-__-____-_-_——_--——— eae Semen 2 ca ne ere cence meer een aemenaneeeneeereeneecereereemnsenare | 
| | svc } 2 |Fetches $$BOPENR. | | 


| SD CRE TS EY AD SN AES ES AY NS NS A TD AS NS ND TD SD SD ST ES ED NY SIINENNES CTD SRD AERIS TTP ED SUSY AERAD SOP RETNA 











PIED CD AD EAA CS AREY ARMEC GUIS OCD CIE CUED CENTS ST SAA AAAS LE RET LLL PTET LET LEE TAD YY ELE ILLES LIRR OED | 


|FILEn = Symbolic address of the DTF table for the last file specified in the operand of| 
| the OPENR macro. 


i N = Sequence number of a file (1, 2, 3, etc.), in the order it appears in the OPENR] 
| Macro operand. | 
| EN = N of the last file +1. | 
bet 


Function: The OPENR macro instruction activates files used by self-relocating programs. 
In addition to the basic function performed by the OPEN macro, the OPENR macro relocates 
all the address constants within the DTF tables for the files specified in the operand 
field. A maximum of 16 files can be specified in the operand of a single OPENR macro 
instruction. 


the relocation of the DTF table address constants for each individual file. After the 
DTF address constants for all the files specified in the macro operand have been 
relocated, S$$BOPENR calls the TES processor ($$BOPEN), then the Open Monitor ($$BOPEN1) 
to perform the actual open function. After all the specified files are opened, control . 
returns to the problem program. 7 : | . 
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POINTR Macro 


EMD COLD CD ELD EES AS LE RLEED OTS ITD ND ELIA MAD CREED AE ACES SALDANA CD ID SE A READ EAD TAO RR MORI een AOA AEA CUTE EE ES IP ATE ES AY ESD SD ERD ME REED ID OR AS NE CEN AS AETD CENTS SEA NED SOELAE ANED AED CNT ANA EMEDIA AOE CRD END ES AEE CA LD OTD aS TD ees | 


|Label| FOINTF|filename, PARAM | 





eS SSS ee 
| IL: {1,=A(filename) |Loads address of DIF table. 1 
| {L 10,=A (PARAM) JLoads address of field containing record identification. | 
| {L 1715,16(1) JLoads address of logic module. | 
| | BAL 114, 16(15) {Branch to POINTR routine in logic module. { 
Ose Sica ss a ces cs ces Sa cso sme sce pe es ea mu cen wc se ea ip Gel Sh Sl sm eis i mm po sms ls ie a ag i pa i i a a a el 
Function: The PCINTR macro instruction repositions the file to read a magnetic tape or 
DASD record previously identified by a NOTE macro instruction. 


Procedure: If the file is on tape, this routine spaces tape either forward or backward 
until the block count in the DTF table reaches the value provided as a parameter of the 
POINTR macro. Then the file is backspaced so the record may be read. 


For DASD files, the POINTR macro instruction logic flow is the same as POINTW except | 
track space is not considered. The POINTR macro is only used with IBM disk devices. 





Ce eye eae Beg pa pe Rp an ee ee Nets a ee eng SS eae Pe mT me ee NT Te Geet wnt ae ae Ge Pew. Pee ad wok eee Ge ee SON eS ee ee es, 
|Label |POINTS|filename | 
| ae ee rere me aes meee ee eens eens f 
| | L }1,=A(filename) |{Loads address of DTF table. | 
| {1 }15,16(1) |Loads address of logic module. | 
| | BAL 114,24(15) {Branch to POINTS routine in logic module. A | 
a a Ne a SE ee corinne eons ens oa as tes Slt ci Gamers me ei tS i Ca eri i i em is Se anata San ane 








beginning of the file. 


Procedure: For a magnetic tape file, a POINTS macro instruction rewinds the tape 
associated with the filename. If any header labels are present, they are bypassed on the 
next READ or WRITE instruction. The tape is positioned to the first data record 


following the label set. 


For a DASD file, a POINTS macro instruction positions the file to the lower limit of 
the first extent. The first record on the file is read or written when the next READ or 
WRITE macro instruction is issued for the file. 


POINTW Macro 


{Label | POINTW|filename, PARAM | 
| ---—+-----—~-+}----—------— 





URES CRED AOD ED ED SED OND AS EL TNS A EN CE CS TT AES SPATS AD CD ESE CED SETA EE ED CED ONES CED GED CCD GES REED GIS AELTEIGUEND CLE CEESE oo Se ee tee et 

















| {L {1,=A(filename) |Loads address of DTF table. | 
| {L {O0,=A (PARAM) JLoadss address of field containing record identification. | 
| | L }15,16(1) |Loads address of logic module. eT 
i | BAL 114, 20(15) {Branch to POINTW routine in logic module. | 
sor esi ees celeste als tn te eu in ce cin tin re wl ccc as al a a i ala a a ai ee se Sa i ai ie ame ems el i Na a a seca ae 











Function: The POINTW macro instruction repositions the file to write a magnetic tape or 


DASD record following the one previously identified by a NOTE macro instruction. 


Procedure: If the file is on magnetic tape, this routine spaces tape either forward or 
backward until the block count in the DTF table reaches the value provided as a parameter 
of the FOINTW macro. 


For a DASD file, the DASD address of the record to be written is calculated. The 
POINTW routine determines if the record can be contained in the same extent used by the 
preceding record (the preceding record is the one identified by the NOTE macro). If not, 
the Sequential DASD Open routine is called to open the required extent. When the correct 
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extent is obtained, the CCW seek address is modified and the space remaining on the 
extent is updated in the PTF table. Control then returns to the problem program. 






































PRTOV Macro 

ek kee ee Ny Ee ee ep te he fag eg Gt eee ep a ae NY ee ne a Ce re EY Te RD Oe ee ete eg eo gon 
{Label | PRTOV{|filename,CHAN,routine* | | | | 
(Sa —_—_--—- OOO | 
| { L 11,=A(filename) |Loads address of DTF table. | 
(2SSS—= SS ee Re a eR oat i tae eee =] 
{ |} L {0,=A(routine) |Loads address of user's overflow routine if specified. * | 
{ 1 SR | 0,0 {Zero register 0 if no user routine specified. * | 
Se ?—— eee a ee Se 
| | L 115, 16(1) {Loads address of logic module. | 
(SaaS a ee ee et ee =| 
| | or }21(1) ,1 {Sets channel 9 bit in DTF table if CHAN is 9; otherwise, | 
| | | jchannel 12 assumed. ** | 
| ----—-—-4----—---}----------—— Se nen nn nn nn nnn nn ee | 
] | BAL |14,4(15) {Branch to PRTOV routine in logic module. | . ] 
Ws sees sca ue cee sre en me “emcee cpm cy cs esr cms ess nanos sg es i em em seen ne eb “nin: meme ss a rs ci ae in cin ss <a i san en om tl-n Se sh  SieSiS me ee-e m er m  es cs c c h 


* Optional 
*k Only if CHAN=9 


Function: The PRTOV (PRinTer OVerflow) macro instruction specifies the operation to be 
performed when an overflow condition is reached on a printer. Whenever this macro 
instruction is to be issued in a problem program, the DTFPR or the DTFSR entry PRINTOV 
must be included in the file definition. 


Procedure: The program performs the functions specified by the problem programmer. That 
is, skip to channel 1 on a 9° or 12, or perform his own functions when a 9 or 12 is 
sensed. If skip to channel 1 on a 9 or 12 is desired and a 9 or 12 is sensed, skip to 
channel 1 is placed in the CCW chain. Then, an SVC 0 executes the skip and resets the 
channel 9 and 12 indicators. 


If a user routine is specified in the macro instruction, the problem programmer may 
issue any logical IOCS macro instructions (except another PRTOV) in his routine to 
perform whatever functions are desired. For example: print total lines, skip to channel 
1, and print overflow page headings. The user routine must return to LIOCS by a branch 
to the address in register 14. Logical IOCS supplies this address upon entry to the 
user's routine. Therefore, if LIOCS macros are used in the routine or if register 14 is 
used, the return address must be saved. 


J|Label | PUT |filename, PARAM, control* | | 


























| | L {1,=A(filename) |Loads address of DTF table. | 
= s—> SS = SS ee —| 
{ | L |0,=A(STLSP) {Loads address of control field, if control = STLSP. * | 
| | L |0,=A(STLSK) {Loads address of control field, if control = STLSK. * | 
{ } L }0,=A(PARAM) {Loads address of work area, if specified. * | 
| -—--—--} ------+ ---_—__--__----_- -—- +---_-----—- 2 | 
{ {| OTF 148(1),x'80! }Sets indicator in DTF table if control = STLSK. * | 
SS SS Bs re ae ee | 
| {| L 115,16(1) {Loads address of logic module. | 
| | BAL [|14,12(15) {Branch to PUT routine in logic nodule. | 
SSS ee SS = Se i ee a | 
{ { NI 148(1),X'7F* {Resets control = STLSK indicator in DTF table. * © | 
a ics a a a as ee Ss ee ee ee ee a ee ced ain hid aa sn nn it is ns mn a a as i i i en iin i en nil 








* Optional 
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Function: This instruction writes or punches logical records that have been built 
directly in the output area or in a specified work area. It is for any output file in 

the system (except work file), and for any type of record: blocked or unblocked, spanned 
or unspanned, fixed or variable length, and undefined. It operates much the same as GET 


but in reverse. It is issued after a record is built. 


Similar to GET, the PUT macro instruction is written with one or two parameters, 
depending on the area where the records are built. Either form, but not both, can be 
used for one specified logical file. If records are built directly in the output 
area(s), the PUT macro instruction requires only one parameter. This parameter specifies 
the name of the file to which the record is to be transferred. The filename must be the 
same as the one specified in the DTF entry for the file. 


The second parameter is optional and if used, specifies the address (or a register 
containing the address) of the work area. This parameter is used if records are to be 
built in a work area defined by the user. The second parameter causes the PUT routine to 
move each logical record from the work area to the output area. 


A third (optional) parameter, CONTROL=, is included in the macro operand for files 
assigned to printers with the Selective Tape Lister (STL) feature. 


Procedure: Two output areas permit an overlap of data transfer and processing operation. 
Whenever two output areas are specified, the LIOCS routines transfer records alternately 
' from each area (except fcr combined files). The LIOCS routines completely handle the 

Switching of I/C areas so that the proper area is available to the program for the next 


sequential cutput record. 


If a work area is specified, the output record is moved from the work area to the 
output area. 


With blocked files specified, it is not necessary to transfer information from main 
storage to the output device on each PUT instruction. Only if the logical record is the 
last record of a block is it necessary to transfer a physical record to the output 
device. If overlap is possible, the transfer of information need not be completed before 
another PUT requiring data transfer is issued. When overlap is not possible, the 
transfer of data must be completed before another PUT is issued. 


Tests are made for unusual conditions, which include: end of reel, wrong length 
record, irrecoverable error, no record found, etc. 























PUTR Macro 

pe Pe ae Ree GY age PP eg SE TO ena epee a hanna eee FOO fea TO Te Seg na ge ee we pe ee Te ea, ne eS CeO fe Ry ee Eee eee oe 
{Label |PUTR |{filename,workout* ,workinp* | 
| ~---———}----——--}-- —_—------- +--+ | 
| {L |1,=A(filename) |Loads address of DTF table. | | 
| -—---——-—+4-—------- 4 --- + ee SS SS | 
| {L }0,=A(workout) |{Loads address of output work area. * | 
{ [L }2,=A(workinp) |Loads address of input work area. * | 
== SS et Ss 3 SS SS | 
| JOT 12(1) ,x'08! jSet action message indicator in CCB. | 
i {L 115, 16 (1) {Load address of logical module. | 
| {BAL 1}14,4(15) {Branch to PUTR routine in logic module. | 
Aaa ses Se et ce es ce cess so ec nc Ss ee se ens es pms ec css cas ui rs Sos apc eS ees “es ies aces ‘es us ee nme eso nl dsc is “ats aces pti a Ss sani tment me eS ml Ss tases <n nme cami -imsirsea wri coecub coe me Once 
* Optional 


Function: The PUTR (PUT with Reply) macro handles action messages that appear on the 
screen of the Display Operator Console. PUTR used with the 3210 or 3215 performs the 
same functions as a PUT followed by a GET. Moreover, the message non-deletion code for 


the Display Operator Console is then provided. 


Procedure: The PUTR macro is issued after a record has been built. It processes 


fixed-length records only. The PUTR macro is written with either one or three 
parameters, depending on the area in which the records must be built. Either form, but 
not both, can be used for a logical file. If the records are built in the I/0 area, only 
the filename parameter is required. If the records are to be built in a user-specified 


work area, both workout and workinp must be specified. In this case, the record is moved 


from the work area to the I/O area. In the case of overlap, information transfer need 
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not be completed before the next PUTR requests new data to be transferred. If overlap is 
not possible, the next PUTR must wait for the completion of the previous PUTR. Tests are 
made for unusual conditions such as end-of-reel, wrong length record, irrecoverable 
error, no record found, etc. 


PUTR sets bit 5 of byte 3 in the CCB to '1" to indicate an action message; it then 
passes control to logical IOCS, which executes a PUT immediately followed by a GET. 


RDLNE Macro 


a ee A ee NO ae EE RR EE re EN 
| Label|RDLNE |filename . | 
| a cr ate ee nme aeaeneercenf 
| | L |1,=A(filename) |jLoads address of DTF table. od | 
i {L 115,16(1)  |Loads address of logic module. | | 
| {BAL 114,4(15) {Branch to RDLNE routine in logic module. | 
i sa ee ede act cos ec lacie cee cps ei es oll eng es ic ei cle ll me ie nse i iis eet Ses vig so i ge la <p iit i epi et sn me me Sak sh ep me peaieeiba osama 


being processed on an IBM 1287 Optical Reader. This macro reads a line in the online 
correction mode while processing is in the offline correction mode. 


2? GED EE GS ca? ee ae CE ee 


containing the unread character. If still unsuccessful, the user is informed of the 
condition via his error correction routine (specified in the DTFOR COREXIT entry). The 
RDLNE macro causes another attempt to read the line. If the character in the line cannot 
be read during this attempt, the character is displayed on the 1287 display scope. The 
operator may key in the correct character, if possible. If the defective character 
cannot be readily identified by the operator, he may enter a reject character in the 
error line. This condition is posted in byte 80 of the DTF table for user examination. 
Wrong length records and lost line conditions are also posted to byte 80 of the DTF 
table. RDLNE should be used in COREXIT only; otherwise the line following the one in 
error will be read in online correction mode. 


The macro requires only one parameter, the symbolic name of the file from which the 
record is to be retrieved. This name is the same as that specified in the DTFOR header 
entry for this file. The filename can be specified as a symbol or in special or ordinary 
register notaticn. 


























READ Macro 

CS = ee ee ee eee erry 
{Label {READ |filename, TYPE,PARAM,length | | | 
| -—-—— +--+} +1 aaa aac | 
| | L }1,=A (filename) j|Loads address of DTF table. | 
| | L |0,=A(PARAM) {Loads address of input area. | 
| |L 115, 16(1) {Loads address of logic module. | 
| a nn nn nnn nr nnn neon <= nen | 
{ J}BAL |14, 28(15) }If TYPE=ID. * j 
| --—~-—-——~-—-4+-----+-----——- one ene cee rence Se re en ee nena enemeemmmemmnaeemmemn | 
{BAL | 14,24(15) JIf TYPE=KEY. * | 
|--_-—----— +-----| ---------__- 4 OOO ne rr en nreneenenncnmcmcnn | 
| [BAL {|14,0(15) {If TYPE=MR. * | 
| ——— nn rn rrr a rma | 
| {LA 114, IJJRSYSNDY+10 {Loads return address for TYPE=SQ. | 
| IJIJRSYSNDXY|(BAL {0,4(15) {Branch to READ routine in the logic module if | 
| | | : | TYPE=SQ. | 
| {Dc | A( PARAM) {Address of input area. | 
| | DC |}H*length' | Length of record to be read. | 
ay Ss eee ani ls et ana ce tn es co ls eed nabs icc nie le cig ii ai epee mic es ie i hts ees ie ante Sie i we ei ce ln hae 








* Portion of macro expansion determined by TYPE= parameter. 
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He re ee a Ee ee ee SeRn REN ERED CO erie ED Tee oN Se ee ee ee ee 











|Label {READ |{filename,DR,PARAM1,PARAM2 
(—————— ——— Se ee ee ee ead 
| {L 11,=A (filename) | Loads address of DTF table. i 
{ {1 {0,=A (fldname) JLoads the field name specified by PARAM1. 

( {LR 10,r - | Loads the register specified by PARAM1. 

{ {BAL |0,*+6 | | | 

{DC {AL1(PARAM1) ! Generated if PARAM1 and PARAM2 are numbers. 

{DC {AL1 (PARAM2) { | 

| {L 115, 16 (1) JLoads address of logic module. 

| {BAL |14,8(15) |Branch to read routine in logic module. 


eS eet es ED OE meg or SE EO CO ORD NS ED ET CONE ECE A ICS CUD ECT SNOT 











| OE EP ED TEND NEE ET ND ID AD AY ED OTE CED STE EY CLS AD TES SLD LY TS LS OS DS AS TS YS A AS SS NS AOS 


{READ macro expansion for the 3886 Optical Character Reader. | | | 


SA AE AE ED ANS ATED ENE RTD TD ADAGE eR STUD AEN SRAITD RAND RAED INNER TIRES CAD se ai Seni oe i ce cp ni ei et ae San ea a 





fee a ee eee A AONE SERETY ORA EEL CEE ALORS I SORA EES SEE I TEE ERS ORD IES Son MATEO TAD A SORE 





record (or the next logical block for control interval format) to be read from the file 
associated with the filename into the area of storage indicated. If the file is ona 
3886 Optical Character Reader, the storage area is indicated in the DTF. 


Procedure: The READ macro instruction must always be followed by either a CHFCK macro 
(MICR and work files) or a WAITF macro (DAM, ISAM, and 3886 files) to ensure the 
completion of the REAT instruction. 


The read logic sets up the channel program, modifies the CCW, inserts the address and 
number of bytes to be read, and issues an SVC 0. For control interval format the READ 
may not cause physical I/0. 


The read logic does not provide for deblocking of records. If the user wishes to use 
blocked records, he must provide this function in the problem progran. 


-- Dynamic Device Release 


aap cx ED AED CD a a a 














eCor oN Re ee ET Me ee ec er eee ee Ry eR ee ee Lee eg eg ee ee ee pee Oe EG a ge ape ep Pen, ape hate ep ee ay ay me eS Gm en Spr ee 
|Label|RELEASE|SYSxxx,... | 
| ---—-——+-—-——---—} —— SS ne | 
{ {STM {0,1,SAVE {Saves registers 0 and 1. i 
| {LA 11,=C'$$BRELSF' |Loads address of transient. | 
| | BAL 10, *+4+6 {Branches to fetch and skip table. | 
| {sve = f.2 {Fetches $$BRELSE. | 
{ | LM }0,1,SAVE }Restores registers 0 and 1. j 
| {SVC } 14 {Normal end of job. | 
as es cs es es eee ca Ss eo ee bina sii elas el — si ci i i os so id en Sc i Ct vt Ce iam sei sc ee dg i a i aed 














Function: This macro releases a unit table as specified by the problem program and 
fetches $$BRELSE. 


The 'savearea'? parameter is optional. If it is provided, it should be the name of an 
8-byte area where registers 0 and 1 are saved for the user. If it is not provided, the 
contents of registers 0 and 1 are destroyed. 


Procedure: The macro checks all of the units provided in the operand sublist to assure 


that no system logical units are requested for release. If system logical units are 
specified, an MNOTE is issued and the unit is ignored. | 


After all checking is done, a unit table is set up, register 0 is loaded with the 
table address, and $SBRELSE is fetched. If the "'savearea' option is specified, registers 
0 and 1 are saved, and code is generated to restore them after the transient returns 
control to the RELEASE macro. 
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RELSE Macro 


EES EBS ERED AED TEP ARS ERED ATES ACNTD GTS OER UT YD CRASS <A REETY SITES CLAN) GEERT TS GEES OEP CEMENEDS CHETAN A MONTE EAS IY GM AP ALLY IE PLT OITE I SID ATS TELE SEL DIES AD TENS AIO AY NID RIOD AE AL RID RE EY SS ae a ee En ee 











jLabel|RELSE |filename | | 
ca oes cae cam Dias Iara ac Na | 
i {L {1,=A (filename) |Loads address of DTF table. | 
| [L 115,16(1) {Loads address of logic module. ; 
| |BAL 114,4 (15) {Branch to RELSE routine in logic module. | 
Op i cs ec esc ct ce ele uw mses an sst  se as p  p S  t Asi en  eseabs a a ene aS cis won mana pst uns Suse em: Su >< sects nan ive a cas cease inl 








Function: The RELSE (release) macro instruction is used in conjunction with blocked input 
records. It allows the programmer to skip the remaining records in a block. If the 
record spans multiple physical blocks, the entire logical spanned record is bypassed. 
Processing continues with the first record of the next block when the next GET macro 
instruction is issued. 


aD SE CE RE mn SE cies co 


like the last record of the block. With this indication, the next GET transfers 
information from the input device to main storage and makes the first record of the new 
block available to the problem progran. 


RESCN Macro 














RA NA AN a A I Ra ad a ee ca ea aa | 
[Label|RESCN |filename,r1,r2 | 
| ---——_}-----—-}+----—— es ae een a a ea en cece neem 
| |L 11,=A (filename) |Loads address of DTF table. | 
| | LA {0,18 | | 
| | MVC }88(8,1) ,O(r?) {Puts Load Format CCW for reference mark in DTF table. | 
| | MVC 196(16,1),0(r1) {Puts Load Format CCW for field to be read in DTF table. | 
| iL 115,16(1) JLoads address of logic module. | 
| | BAL }14,16(15) {Branch to RESCN routine in logic module. . { 
ee a ee ee ee Ce eae Oe en Ee RE ee ee ee a eR sit clea. i ns eicosanoid aamcdepania alee 











Function: The RESCN macro provides the capability of rereading a field that has a 
defective character. This macro pertains only to the document mode and rereads into the 
portion of IOAREA1 corresponding to the original read. Online correction can also be 
forced by this macro. 


The macro requires from three to five parameters. The first parameter specifies the 
symbolic name of the 1287D file given in the DTFOR header entry for the file. The second 
parameter specifies a general purpose register (2-12) which must contain the address of 
the Load Format CCW giving the document coordinates for the field to be read. The third 
parameter specifies a general purpose register (2-12) that must contain the address of 
the Load Format CCW giving the coordinates of the reference mark. The fourth parameter 
specifies a number (n), which is the number of retries to be given. The fifth parameter 
specifies one more retry with forced online correction. This parameter must be the. 
letter F. 


Procedures; When a character cannot be read, logical IOCS retries the line containing the 
unread character. If the character still cannot be read, the user is informed of the 
condition in his error correction routine specified in the DTFOR COREXIT entry. The user 
can then issue the RESCN macro to reread the field with the unreadable character. If the 
character still cannot be read, it is retried up to nine times depending on what the user 
specified. If the error still exists on the last retry, online correction is forced if 
the user specified this. 

















SEOV Macro 

Peres ny eee Be ee eg ey Oe AT a ap Sg gS eee OG Ne TS Sag Chae ee ee ES A GeO eg Ey In ER Ry aR aE aay RE TE PR OnE mee ne ee ee eee 
|Label|SEOV |filename | 
| -—---—4+-—--~-——-4---— en — me nn nn nn nn | 
{ { LA |1,=C'*$$BCEOV1"' |Loads name of B-transient. | 
{ | L {0,=A(filename) |Saves filename for B-transient phase. | 
| SVC | 2 {Fetches phase $$BCEOV1. | 
i i as nie Sa a ss ee Son a a as ees bs eh ae ee ei es Se a ee 5s ci Sas mii iin ii minis sn ei i i iii inn ins <a ai sci ee iim a sin eae 
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Function: The SEOV (System Units End-of-Volume) macro instruction allows automatic volume 
Switching to occur if the reflective spot is reached on a magnetic tape output file 
assigned to either SYSLST or SYSPCH. 


Procedure: An SEOV macro, issued after the physical end-of-volume has been detected on a 
tape file, fetches phase f£$BCEOV1 to determine the file type, and to select the proper 
tape close routine. The selected tape close routine performs the appropriate close 
functions and determines if an alternate tape is available. If an alternate tape is 


available, it is opened and made ready for processing. 


SETDEV Macro 














SS SSS ee ae eS ——7 
|Label|SETDEV|filename, phasename | 
| ----—+-—----——-|----——— Se SSS ——| 
i {1 |} 1=A (filename) jLoads address of the DTF table. | 
| | BAL ;0,*+12 | Generated if the phasename is an actual phasename. | 
| | DC {CL8'phasename! | | | 
| | LR {0,r [If phasename is specified in a register (r) other than | 
{ | | jregister 0. | 
| {L 1}15,16(1) |Loads address of logic module. f 
| | BAL 174,16(15) {Branch to SETDEV routine in logic module. | 
a a ac sii sa ce Sn i ce a Sa i ss aes we ec a ete ln secon ans atl nna Snir Sis ices pe aw cea ad Ss Cn cs wm vie “eso ces lcci rs aie Sens as cs cnn te mle ss ed cs eh a ec ra es ee eg este ce 


Function: The SEFTDEV (SET DEVice) macro instruction loads a format record into the 3886 


Optical Character Reader. 


3886 logic module. The logic module gets the format record from the core image library 
and loads it into the 3886 device control unit. 

















ae ee ee en ee 
{Label|{SETFL {filename | | 
| ---—_+—__- -__|---_-___-__-_--___—_--___erreraae —— =a SS Pe ac rn a sae onan 
i {L |0,=A(filename) |Loads address of DTF table (DTFIS Load). | 
| {LA 11,=C'S$$BSETFL' {Loads name of B-transient. | 
| |SVC | 2 jFetches phase $$BSETFL. | 
( | LR {1,0 |Saves address of DTF table for the problem progran. | 
in ais cs in sn esac na Sse cs esos eins cei “apse nes Sonne Sas tvovelith gus is iain Semabcoooae ei ceaes aemceodscaa sent i i its mii ceri 5 i a ni i ee es i sti i ce aa si sth st ni ea iia ncaa an cal 
Function; The SETFL (SET File Load mode) macro instruction sets up the ISAM file so that 
the load function can be performed. 


Procedure: The SETFL macro instruction preformats the last track index of each cylinder 
of a file with zero entries, and initializes for a WRITE. Control then returns to the 
problem program. oO 
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SETL Macro 

Get re pp en ee et on eg ae eo ee OT Ne Gg Gee en ee LO eT GG OE OS OSS Sy Pe egy Ph Ne OE AT EO CT Ne Gatt S gn OES tg me ea en te ee 
| Label |SETL |filename, PARAM | 
| een nf I Oe SS S| 
| {ST |}PARAM (1) ,IJJSESYSND¥+8 |Saves parameter. f 
| {LA 11,=C*$fBSETL!* j|Loads name of B-transient. | i 
{IJJSESYSNDY([BAL |0,*+12 {Branch to fetch B-transient. | 
| | Dc | A (filename) j}Address of DTF table. | 
SS er ee ee ee ee | 
| {DC {A (PRRAM(1)) | Address of field containing starting (or | 
i | { | lowest) reference if PARAM=ID name. * | 
{DC  |{CL4' PARAM! |If PARAM = BOF, KEY, or GKEY. * | 
mmm a a a a rr reece f 
\ ;SvC 42 |Fetches phase $$BSETL. ' 
{ jL 11, 1S JSESYSNDY+4 | Loads address of DTF table. | 
*Optional 


Function: The SETL (SET Limits) macro instruction initiates the mode for sequential 


retrieval and initializes the ISAM routines to begin retrieval at a specified starting 
address. | 


Procedure; If KFY is specified in the DTFIS table, the SETL routine searches the indexes 
to find the track and record address of the keyed record. The GET/PUT constants are 
initialized to tegin with the address of the keyed record. When BOF (beginning of the 
file) is specified, SETL initializes the GET/PUT logic to begin retrieval with the first 
record in the file. If ID is specified in the DTF, the GET/PUT logic is initialized to 
start with the record in the prime data area corresponding to the specified ID. 


— CRP APS TD ES ALE RET ID AD CEP OP COLD TE KT ET A ATES ES TD ES CES SCD CIENT SEP AT LE PAD ED AES ELD A IND CIS CT AED RTD 


a i ca ti aa ee te aes 
jLabel|TRUNC {filename | 
| mm ne rt ren en ere eee an ae mene meena am enema een aenceneeeeeevemcemrcemremmceaae aac | 
| {L {1,=A (filename) | Loads address of DTF table. | 
; {L 115, 16 (1) |Loads address of logic module. | 
| | BAL 1714,20(15) {Branch to TRUNC routine in logic module. | i 
a casa as cea es cc a a a sie ces ce es ces “ei i Ses cs cao cam as ri cas in So cow ncn a Sas pu a ces ems ion es Sve cao mc ems accom si nec on cc i tisrc ae Seer a i ai a a Cn ca cn ca ee tp ices a car mat 








Function: The TRUNC (TRUNCate) macro instruction is used with blocked output records. It 
allows the programmer to write a short block of records. (Blocks do not include 
padding.) Thus, the TRUNC macro is used for a function similar to the RELSE (release) 
instruction for input records, but in reverse. That is, when the end of a group of 
logical records is reached, that block is written and a new group is started at the 
beginning of a new block. 


Procedure: If (as a result of the previous PUT) the block has already been transferred to 
the output device, the TRUNC macro requires no additional handling. If physical I/0 is 
needed, the PUT routine is modified to handle the truncated record. Control then returns 
to the problem program. 
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I aa Ta << ——— SSS ee ee eee ee eee 
JLabel {|WAITF |filename!,filename2?,...filenamen { 
== SSS SS ee ee ea | 
i | ST |SYSLIST(n,1), |Stores end of list code, n+1, in last entry] 
| | IJIWESYSNDX+n*4 fin file list. 
{ |L {1,=A (Filenamen) [Loads address of DTF table. | 
| }L 115,16(1) |Loads address of logic module. | 
{IJJWESYSNDY |BAL 114,4(15) {Branch to WAITF routine in logic module. ] 
{ | DC JA (SYSLIST (n) ) {Address of file list. | 
ES a en an ee Sn a RE a LT ee Shai enon sna Sas Ss Sea sss vo kate ests aca bem cmiescees Gara waaia eee 
n = a maximum of 16 files can be specified in the macro operand. 


complete when used with DAM or ISAM files. 


Procedure: For MICR files, if any one of the devices tested is operative and ready (that 
is, has records or error conditions to be processed), control returns to the problem 
program at the next sequential instruction following the macro expansion. On the other 
hand, if all the devices tested are not operational (that is, they are all waiting for 
documents to process), the system enters the wait state. ; 


For DAM or ISAM files, the WAITF macro makes the system enter the wait state until a 
previously started I/O operation is complete. 


state. This allows processing to continue in another partition. 
































SS ee a ee 
| Label {| WRITE*| filename, TYPE, PARAM | 
= SS Se | 
| | L {1,=A (filename) | Loads address of DTF table. | | 
| | L }0,=A (PARAM) | {Loads address of output area. | 
| | L 115,16 (1) {Loads address of logic module. | 
= Se SSS SS ee ee ee | 
| | BAL 114, 32(15) {Branch to WRITE routine in logic module if [ 
‘a | | |TYPE=SQ. ** | 
| ----—-----—-- 4 -----—-++- -------—__---- ee ——< | 
{ {BAL 174,28, (15) {Branch to WRITE*routine in logic module if | 
| | ] | TYPE=UPDATE. ¥** | 
i pe cc Sa a fc a as ae re cara a a a se cen is Sms ls Sl sas ln cos em vec cc le a a a eee 


* For RECFORM = FIXUNB. 
** Optional 


write, inserts the address and number of bytes to be written, and issues an SVC 0. For 
control interval format, physical I/O may or may not occur. 


The write logic does not provide for blocking of records. If the user wishes to block 
records, he must provide for it in the problem progran. 


The WRITE macro instruction must always be followed by either a CHECK macro (work 


files) or a WAITF macro (DAM and ISAM files) to ensure the completion of the WRITE 
instruction before another instruction is issued. 
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Example of a GET Macro 


For this example of a GET macro (see Figure 6), assume that both the DTF table and the 
logic module were assembled separately, the GET macro expansion generated by the 
assembler, and symbolic addresses resolved by the linkage editor. IJFF2Z2ZZ (symbolic 
address) is generated as the name of the logic module and is included in the DTF table 
because of certain parameters specified in both the MTMOD and DTFMT macro instructions. 


At object time, when the GET macro and its expansion are encountered, the starting 
address of the DTF table symbolized by the name OLDMSTR is loaded into general register 
1, which serves as a base register for the DTF table. The next instruction in the GET 
macro expansion loads the contents of bytes 16-19 of the DTF table into general register 
15 (bytes 17, 18, and 19 of any DTF table always contain the V-type ADCON for the logic 
module). This retrieves the address of the required logical IocS data handling module. 
The third instruction in the GET macro expansion stores the address of the next 
sequential instruction (NSI) of the problen program in return register 14 and causes a 
branch to the lcgic module. 


An assembly listing of the IJFFZZZZ logic module shows a branch instruction (B 
IJFFGFT) eight tytes from the start of the module. When the BAL instruction in the GET 
macro expansion passes control to this point in the logic module, the branch instruction 
passes control to the GET routine. 


The GET routine determines which of the I/O areas is available (in this case, 
IOAREA1), and inserts the address (IOAREAO) of that I/O area into the CCW. The GET 
routine, using the CCB contained in the DTF table (the address of the CCB is loaded into 
general register 1 by the first instruction in the GET macro expansion) issues an SVC 0 
for the device assigned to SYS001. The resulting physical I/0 operation makes the next 
record in the OLDMSTR file available to the problem program in location IOAREAO. After 
ensuring that the physical I/0 operation and the transfer of data is complete, control 
returns to the next sequential instruction (NSI) in the problem program via a branch to 
the address stored in general register 14. 
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Problem Program 


OLDMSTR OTFMT TYPEFLE=INPUT, * 


RECFORM=FIXUNB, : 
RECSIZE=80, : 
READ=FORWARD, ‘ 
REWIND=UNLOAD, : 
DEVADDR=SYS001, : 
FILABL=STD, . 
IOREG=(3), * 
IOAREA1=IOAREAO, . 
IOAREA2=IOAREAT, ‘ 
LABADDR=CHKOLDLB, ; 
ERROPT=CHKOLDBK, 


WLRERR=REG6, 


MTMOD ERROPT=YES, : OLDMSTR DTF Table 
Taree Nae , | Bytes | Contents 
TYPEFLE=INPUT ey ies Sones | 


~ CCB 
= Indicators 
= Address of logic module (IJFFZZZZ) 
GET OLDMSTR 
+ L 1,=A(OLDMSTR) 
i + L 15,16(1) 
+ | BAL 14,8(15) CCW 


ee | DC A(IOAREAO) 
HERE EQU : DC A(IOAREAT) 
* A NEXT SEQUENTIAL INSTRUCTION (NSI) 





{OAREAO DC 80C’ ‘<#-— ~\ 
IOAREAT DC soc’ ' \ ae 
_ \ Logic Module 
\ 
~ \ \JFFZZZZ  — 
\ | —_ 
‘ . B IJFFGET 
\ ca 
3 | | JEFGET is f GET routi 
_ hat O routine) SYsoo1 
\ = 
a \NFFHU2 SVC __ 0 (using CCB and CCW from DTF) i 
\ _< | OLDMSTR 
*< BR 14 
\ 2 “a 
\ l- 
ee ge he ee 8 ee ee ee 7 


Figure 6. Example of a GET Macro 
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File initialization and termination 
routines open files required by the problem 
programmer, and close the files when they 
are no longer needed. These routines, 
called into the B-transient (logical 
transient) area by the corresponding OPEN 
and CLOSE macros, consist of: 


1. TES Processor ($$BOESTV). 


2. Open Monitor ($$BOPEN, #$BOPENT, 
$$BOPEN2, $$BOPEN4, and $$BOPLBL). 


3. Close Monitor ($$BCLOSF, $$BCLOS2, 
$$BCLOS3, $$BCLOS4, $$BCLRPS, and 
$$BCLLBL) . 


4. EOF/EOV Monitor (f$BCEOV1). 


5. Device or file-processing method 
oriented open and close transients. 


OPEN ROUTINES 


CHARTS 01-04 


The open routine opens each file needed in 
the problem program. Up to 16 files can be 
opened with each OPEN macro instruction by 
entering their filenames as parameters. 


TO open a particular file, the Open 
Monitor (Chart 02) examines the DTF table 
specified by the filename to determine the 
file type and/or the file processing 
method. This information is obtained from 
byte 20 of the DTF table. Figure 2 
summarizes these DTF type codes. In 
addition, the Open Monitor performs some 
initialization and checking, and reads any 
necessary label information into main 
storage. The Open Monitor then calls the 
appropriate open transient(s) to handle the 
file open. 


ae GHD GEES qanD — an ap Gp ome ame a=? am emp anan aneam _ a a ane aa GED 7 ap em am 2m Do ame ee ae 


Files 


When opening unit record devices (readers, 
punches, consoles, printers, paper tapes, 
and the 3881 Optical Mark Reader), the Open 
Monitor calls $£#BOUR0O1 to determine if the 
device is in the ready condition. If the 
device is ready, the open indicator in the 
DTF table is set to a 1 (bit 0 of byte 21) 
to indicate the file is open. 


i 
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The Open Monitor calls $$BOMRCE if the 
device is a 3505 with OMR and RCE or a 3525 
with RCE. 


Magnetic Ink Character Recognition Files 


When opening MICR type devices (IBM 1255, 
1259, 1270, 1275, and 1419), the Open 
Monitor calls $$BOMR01, which clears the 
document buffer area and initializes the 
document buffer pointer within the DTF. 
The address of the DTF is inserted into the 
correct entry of the supervisor PDTABB 
table. The unit exception bit in the CCB 
is turned on, and the device address is 
calculated and moved into the DTF. The 
OPEN indicator in the DTF table is set to 
indicate that the file is open. 


Optical Reader Files (Except 3881) 


When opening the IBM 1287 Optical Reader, 
the Open Monitor calls $$BOOR01, which 
determines if the device is ready, and if 
so, further determines if a header is to be 
read (HEADER=YES specified in the DTF). If 
it is, the open routine waits for the 
operator to manually key in a header. 
the header has been read, the OPEN 
indicator in the DTF table is set to 1 to 
indicate that the file is open. 


When 


When opening the 3886 Optical Character 
Reader file, the Open Monitor calls 
$$BOORO1, which determines if the device is 
ready and if so, loads a format record from 
disk into the format area of the DIF. If 
the length of the format record is found to 
be within the required limits, it is loaded 
into the 3886 control unit. If no errors 
occur on the load, the open bit in the DTF 
is set on and control is returned to the | 
Open Monitor. If the format record length 
is incorrect or if an error occurs on the 
load, the open routine is canceled by an 
illegal SVC. 


Magnetic Tape Files 


When opening magnetic tape files, the Open 
Monitor checks the label set and determines 
which of the magnetic tape open transients 
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is needed. The required transient (see 
Chart 03) is then fetched to complete the 
open. 


DASD Files 


When opening DASD files, the Open Monitor 
checks the label information to determine 
the type of processing used for the file: 
SAM, DAM, ISAM, or VSAM. The monitor then 
calls the appropriate transient to complete 
the open. If an ISAM DTF is linked with a 
VSAM file, IIPOPEN is called. 


Diskette Files 


When opening diskette files, the Open 
Monitor checks the DTF type code (byte 20 
of the DTF table) and the device code (byte 
29 of the DTF tatle) to determine if the 
Diskette Input/Cutput Unit transients are 
needed. The monitor then fetches the 
appropriate transient to complete the open 
(see Charts 07 and 08). 


CLOSE ROUTINES 


CHARTS 05, 06 


The close routine closes any file that was 
previously ofrened in the system. Up to 16 
files can be clcsed by each CLOSE macro 
instruction by entering their filenames as 
parameters. 


For unit record devices, the Close Monitor 
sets the close indicator in the DTF table 
(bit 0 of byte 21) to a 0 to indicate that 
the file is closed. 


For MICR type files, the Close Monitor 
calis $$BCMRO1 to complete the close 
function. 


Magnetic Tape Files 


For magnetic tape files, the close function 
is accomplished by logical transients 
called by either the Close Monitor 
(SfBCLOSE) or by the EOF/FOV Monitor 
($$BCEOV1, Chart 06). 


DASD Files 


For DASD files processed by SAM the Close 
Monitor calls $$BOSFBL to link to the 
$IJJIGTOP SVA phase to complete the close 
function. For DASD files processed by 
ISAM, the Close Monitor calls $$BCISOA to 
update and rewrite the format-1 and 
format-2 standard file labels, and to set 
the close indicator in the DTF table. If 
an ISAM DTF is linked with a VSAM file, 
ISCCLOSE is called. For DASD files | 
processed by DAM, $$BCLRPS is called to 
free storage that was obtained for the DTF 
extension. 


Diskette Files 


For Diskette Input/Output Unit files, the 
Close Monitor calls $$BODIO4 to complete 
the close function. 


FILE LABELING 


VSE/Advanced Functions can identify and 
protect DASD, diskette, and magnetic tape 
files by recording labels on each volume 
(DASD pack, diskette, or magnetic tape 
reel). These labels ensure that the 
correct volume is used for input and that 
no current information is destroyed when a 
volume is used for output. 


DASD, diskette, and magnetic tape files 
processed by logical IOcCS must conform to 
certain standards regarding the use of 
labels. Although it is possible to process 
files with physical IOCS macros such as 
EX¥CP and WAIT, without processing labels, 
any file processed this way that is defined 
by a DTFPH macro must also conform to the 
same label standards established for files 
processed by logical IOcS. 


The standard label set processed by 
each volume, and one or more file labels 
for each logical file contained within the 
volume. Optional user labels can be 
included in the label set but these must be 
processed by an independent user routine. 
(Logical IOCS routines pass control to the 
user's label routine in the problem program 
if the LABADDR= parameter is specified in 
the file definition, DTF, macro.) 
Additional volume and file labels can also 
be included in the label set but these 
labels can only be processed by the user, 
and only if nonstandard labels are 
specified in the file definition macro. 


User labels are not supported for 
diskette files. 


Detailed information about the labels 
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can be found in the DASD and Tape labels 
books listed in the Preface. 


The IBM or American National Standards 
Institute, Inc. standard volume label 1, 
and any additional EBCDIC volume labels, 
are written by an IBM-supplied utility 
program at the time a reel is prepared for 
use. The information in the standard 
volume label is checked, but never altered, 
during file processing. Logical I0OCS 
bypasses all additional volume labels when 
building output files. 


Standard file labels are written before and 
after every logical file on a reel. These 
labels are referred to as file header 

labels or file trailer labels, depending on 
their position and use. They are always 80 
bytes long and always have the same format 
and content, with the following exceptions: 


1. The label identifier field (bytes 1-3) 
contains: 


ae HDR to indicate a header label 
(precedes the data file). 


b. EOV to indicate an Fnd-of-Volume 
(end of reel) trailer label 
(written at the end of a reel, 
indicating that the file is 
continued on another reel). 


c. EOF to indicate an Fnd-of-File 
trailer label (written at the end 
of the logical file). 


2. The block ccunt field is used only in 
the EOF and FOV trailer labels. This 
field is set to zero in the HDR label. 


Additional File Labels 


Each standard file label (one header and 
one trailer) can be followed by up to seven 
additional file labels for EBCDIC tape 
files, or by up to eight additional file 
labels for ASCII tape files. The labels 
are 80 bytes long and must contain the 
label identifier HDR, EOV, or EOF in the 
first three bytes. The fourth byte should 
contain a character 2, 3,...n, indicating 
the second, third,... and up to the last 
file label. These labels are not processed 
by LIocs. If required, these labels must 
be written in the user's LABADDR routine by 
use of physical I/O macro instructions. 
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LIOCS bypasses additional header labels on 
input files. | 


User Header and Trailer Labels on Tape 


The user can include additional header and 
trailer labels to further define his file, 
if he desires. Each additional label in 
the set is 80 characters long. EBCDIC 
label identifiers are numbered from UHL1 
and UTL1 through UHL8 and UTL8, maximum, 
for user header and trailer labels, 
respectively. American National Standards 
Institute, Inc., user header and trailer 
labels are identified by UHLa and UTLa, 
respectively, wherein "a" represents the 
range 2/0 through 5/14 except 2/7 
(quotation mark). The remaining 76 
characters can contain any information and 
arrangement desired by the user. 


Tapemarks with Standard Tape Labels 


The sequence of items on the tape that uses 
standard label sets is: 


1. No tapemark preceding the header label 
set. 
. 


2. Header label set: 
ae Standard volume label (required). 


b. Additional volume labels (0-7, 
Optional: EBCDIC only). 


c. Additional user volume labels (0-9, 
optional: American National 
Standards Institute, Inc., only). 


d. Standard file header label 
(required). 


e. Additional file labels (0-7, 
EBCDIC: 0-8, American National 
Standards Institute, Inc., 
optional). 


f. User header labels (0-8, EBCDIC: 
or range 2/0-5/14 except 2/7, 
American National Standards 
Institute, Inc., optional). 


3. Tapemark between header label set and 
first data record. 


4. Physical data records for file. 


5. Tapemark between last data record and 
trailer label set. 


6. Trailer label set: 
a. Standard file trailer label 


(required at end-of-file and 
end-of-volume). 
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b. Additional file labels (0-7, 
FBCDIC: 0O-8, American National 
Standards Institute, Inc., 
optional). 


c. User trailer labels (0-8, EBCDICs: 
range 2/0-5/14 except 2/7 
(quotation mark), American National 
Standards Institute, Inc., 
optional). | 


Tapemark after trailer label set. 


If multifile reel (EOF label), next 
standard file header label follows 
here. If single-file reel (EOF label) 
or if last file of a multifile reel, 
another tapemark follows here. If 
multireel file (EOV label), one 
tapemark follows the EOV label on an 
EBCDIC file. Two tapemarks follow the 
EOV label on a multireel ASCII file. 


Standard Tape Label Processing 


Standard tape label processing is performed 
by the LIOCS transient label-processing 
(Open, Close, EOF/EOV) routines. These 
routines use the information supplied in 
the job control card (// TLBL) that was 
stored in the label information area in the 
resident volume. 


The actual label processing consists of the 
following checks: 


Tape Input File: 


The volume serial number in the standard 
volume label on the first or only reel | 
is compared to the file serial number in 
the TLBL card. All other volume labels 
on all reels of the file are bypassed. 


The contents of the TLEL card are 
compared to the corresponding fields in 
the standard file header label on the 
first reel. Fields 1-10 are required. 
Fields 11-14 are optional. For 
successive reels of a multireel file, 
the volume sequence number (EBCDIC file) 
or file secticn number (ASCII file) is 
increased by 1 for each reel. 


If user labels are indicated, they are 
read into main storage by the open 
routine for processing by the user's 
label routines. The user labels are 
read one at a time, until all have been 
processed. 


When a standard file trailer label is 
read, the block count is compared to a 
count accumulated by IOcCS. 

If user trailer labels are indicated, 
they are read into main storage by the 
close routine for processing by the 
user's label routine. The user trailer 


labels are read one at a time until all 
have been processed. 


Tape Qutput File: 


e The volume serial number in the standard 
volume label on the first or only reel 
is compared to the file serial number in 
the // TLBL card. All other volume 
labels on all reels are bypassed. 


e The expiration date in the standard file 
header label is checked against the 
today's date in the communications 
region. If the expiration date has 
passed, the reel is backspaced to write 
the new standard file label. If not, 
the operator is notified of the 
condition. This check is performed on 
each reel of a multireel output file. 

If no file label is present, the tape is 
considered expired. For an expired 
9-track tape, the user-specified density 
is compared to the VOL1 density of the 
mounted tape. If a discrepancy is 
found, and if the tape is at load point, 
the volume label(s) is rewritten 

- according to the user-specified density. 


e The new standard file label is written 
with the information supplied in the // 
TLBL card. For multireel files, the 
volume sequence number (EBCDIC file) or 
file section number (ASCII file) is 
increased by 1 for each successive reel. 


e If user header labels are indicated, the 
user's label routine is entered to 
furnish the labels as each reel is 
opened. This can be done for as many as 
eight user header labels per EBCDIC file 
and for an unlimited number of user 
header labels per ASCII file. 


e If end of reel is sensed before 
completing the file, an EOV trailer 
label is written with all fields 
presented in the // TLBL card plus a 
block count. 


e When end of file is reached, an EOF 
trailer label is written identical to 
the EOV label previously mentioned. 


e If user trailer labels are indicated, 
the user's label routine is entered to 
furnish the labels after each trailer 
(EOV or EOF) label is written. This can 
be done for as many as eight user 
trailer labels for EBCDIC files and an 
unlimited number of trailer labels for 
ASCII labels. | 


NONSTANDARD TAPE LABELS 


Any tape labels that do not conform to the 
standard label specifications are 


%. 
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considered nonstandard. Nonstandard labels 
are not supported in ASCII files. If 
nonstandard labels are to be read, checked, 
or written, it must be done by the user. 

On input files, the nonstandard labels may 
or may not be followed by a tapemark. 
Therefore, four conditions are possible: 


1. Nonstandard label(s), followed by a 
tapemark, to be checked. 


2. Nonstandard label(s), not followed by a 
tapemark, to be checked. 


3. Nonstandard label(s), followed by a 
tapemark, not to be checked. 

4. Nonstandard label(s), not followed my a 
tapemark, not to be checked. 


For conditions 1 and 2, the DTFMT or DTFSR 
entries must specify nonstandard labels and 
the address of a user-written routine to do 
the reading or writing. 


For condition 3, nonstandard labels must 
be specified, but the address of a user 
routine is omitted. IOCS skips all labels, 
passes the tapemark, and positions the tape 
at the first data record to be read. 


For condition 4, nonstandard labels and 
a user address are specified. I0CS cannot 
distinguish labels from data records 
because there is no tapemark to indicate 
the end of the labels. Therefore, to 
position the tape at the first data record, 
the user must read all labels. 


With nonstandard labels when an 
end-of-file or an end-of-volume condition 
exists, the user indicates to IOCS which 
condition it is. On end-of-file, I0ocS 
branches to the user's end-of-file address. 
On end-of-volume, IOCS initiates the 
end-of-volume procedures to close the 
completed volume and open the next volume 
for processing. : 


On output files, nonstandard labels are 
written by the user's routine by using 
physical IocS. The OPEN routine writes a 
tapemark between the user's nonstandard 
header labels and his first data record 
unless the DIF macro instruction has the 
entry: TPMARK=NO. The close routine writes 
a tapemark after the user's last data 
record before he writes his nonstandard 
trailer labels, and after the trailer 
labels. 


Unlabeled Tape Files 


The DIF macro instruction specifies whether 
the first record of an unlabeled file is a 
tapemark. 


Unlabeled IBM EBCDIC input tape files 
Pay Or may not have a tapemark as the first 


Licensed Program - Property of IBM 


record. (If the first record is not a 
tapemark, IOCS assumes it is a data 
record.) Any tape that is to be read 
backward may have a tapemark as the first 
record on tape. Unlabeled output 

files (written by IOCS) may be written with 
a tapemark as the first record. ASCII 
unlabeled tapes do not contain leading 
tapemarks. A read backwards operation is 
performed to load point for these files by 
special error recovery procedures. 


Notes Seven-track tapes may be read 
backward only if they were written in 
EBCDIC, and they must not have been written 
in the conversion mode. 


When an unlabeled output file is 
specified, the open routine assumes the 
mounted scratch tape is also unlabeled. No 
checking of sel each de date is performed. 


DASD Label Processing 


When a DASD file is processed by logical 
Iocs, the file must be opened before any 
transfer of data can be made. The open 
routines check the DASD labels identifying 
the file. The open routines also compare 
information from the actual file labels in 
the VTOC against the label information 
supplied by the user in job control cards, 
and stored in the label information area by 
job control. 


Note: References made in this manual to the 
// DOLBL and // EXTENT job control 
statements also apply to the // VOL, // 
DLAB, and // XYTENT statements for the 2311, 
and 2314/2319. 


The DIFSD and DTFSR routines process the 
labels of a sequential file (input or 
output) one volume at a time. For DTFSR, 
as each extent is checked, IOCS can pass 
control to a user's extent exit routine. 
When the end of the last extent on a volume 
is reached, an automatic open is issued for 
the next volume. The DTFDA and DTFIS 
routines require that all volumes be online 
for the initial OPEN. DTFPH can be used to 
process SAM or DAM files. The actual label 
processing consists of the following 
operations: 


e The volume serial numbers in the volume 
labels are compared to the volume serial 
humbers in the DLBL/EYTENT cards. 


e The file identification, format 
identifier, and the file serial number 
in the format-1 label are compared to 
the corresponding fields in the DLBL 
card. The volume sequence number, the 
creation and expiration dates are then 
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checked against their EBCDIC equivalents 
in the DLBL card. 


Each of the extent definitions in the 
format-1 and format-3 labels is checked 
against the limit fields supplied in the 
EXTENT cards. 


If user header labels are indicated | 
(when DTFSD, DTFSR, DTFPH, or DTFDA are 
used), they are read as each volume is 
opened. After reading each label, the 
open routine branches to the user's 
label routine to perform any processing 
necessary. 


If user trailer labels are indicated 
(when DTFSD or DTFSR are used), they are 
read after reaching the end of the last 
extent on each volume or an end-of-file 
read by logical IOCS. As with the user 
header labels, the trailer labels are 
processed by the user's routine. 


DASD Qutput Files: 


The volume serial numbers in the volume 
labels are compared to the volume serial 
numbers in the DLBL/EXTENT cards. 


The extent definitions in all labels in 
the VTOC are checked to determine 
whether any extend into those defined in 
the EXTENT cards. If any do overlap, 
the expiration date is checked against 
the current date in the communication 
region. If the expiration date has 
passed, the old labels are deleted. If 
not, the operator is notified of the 
condition. 


The file names of all entries in the 
VTOC are compared with the filename in 
the DLBL statement. If a match is found 
with an expired file, the expired file 
is deleted. If a match is found with an 
unexpired file, the operator is 
notified. 


The new format-1 label is written with 
information supplied in the DLBL card. 
If an indexed sequential file is being 
processed, the DTFIS table supplies 
information for the format-2-label. 


The information in the E¥YTENT cards is 
placed in the format-1 labels, and (if 
necessary) additional format-3 labels. 


If user header labels are indicated 
(when DTFSD, DTFSR, DTFPH, or DTFDA are 
used), the user's label routine is 
entered to furnish the labels as each 
volume is opened. This can be done for 
as many as eight header labels per 
volume. As each label is presented, 
IOCS writes it out on the first track of 
the first extent of the volume. 


If user trailer labels are indicated 
(when DTFSD cr DTFSR are used), the 


user's label routine is entered to 
furnish the labels when the end of the 
last extent on each volume is reached. 
This can be done for as many as eight 
user trailer labels. As each label is 
presented, IOCS writes it out on the 
first track of the first extent of the 
volume. The CLOSE macro instruction 
must be issued to create trailer labels 
for the last volume of a file. 


Diskette Label Processing 


When a diskette file is processed by 
logical IocS, the file must be opened 
before any transfer of data can be made. 
The open routines check the diskette labels 
(which identify the file) against the label 
information supplied by the user in the 
control cards (stored in the lahel 
information area by job control). 


job control statements: 
// EXTENT. 


A diskette file can be identified by two 
// DUBL and 
When the extent limits on a 


volume are exhausted, an automatic open is 
issued for the next volume (for DTFDU and. 


DTFPH). 
diskette files, 


DTFPH can be used to process 
feed the diskettes out for 


a multivolume file, and issue an open to 
get the new extent limits for the new 
diskette (both for input and for output). 


Diskette Input Files 


The volume serial numbers in the labels 
are compared to the serial numbers in 
the DLBL/EXTENT cards. , 


If ‘file ID' is supplied on the DLBL 
card, then that file on the diskette is 
processed (if found). If ‘file ID’ is 
omitted, the DTF name is used. 


Both volume and file security label 
fields are examined and handled to 
ensure data integrity. 


All symbolic units specified in the 
EXTENT cards are checked to ensure that 
only one physical unit is being © 
addressed. This is necessary to ensure 
that only one file is open on a 
diskette. 


The extent limits in the file label are 
checked for validity; if they are found | 
to be correct, the DTF is initialized. 


For multivolume diskette input files 
using DTFDU, the extent cards and the 
multivolume indicator are used in 
conjunction by the OPEN transients to 
determine when end-of-file has occurred. 
If three extents were provided by the 
user, the following nmultivolume 
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indicator combination could occur: 





ee ee ee ee 
Multivolume {Action by OPEN Transients| 
Indicator | | 

---———- ————-———— } - —————--—-——— | 
, anything {Process first volume and 


Jissue warning message. 

| 

{No volumes are processed 
jissue permanent error 
|message. 

| 

Cy {Process first volume and 
Jissue permanent error 
|message. 

| 

}Process first volume and 
Jissue permanent error 
Jmessage because file not 
|found. 

| 

C, L, anything|Process through the 'L* 
jand issue warning 


L, anything 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
|C, x 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 


|message. 
| 

Cy. Cy € }Process through the 
jnumber of extents. 
|NO message. 
| 

Cy. Cy. {Process through the ‘'L*. 
|No message. 

a cc see ee sk es eh es Mags Se encase cs ed Samer ae eget ce cach a na pw nc 


In summary, for DTFDU the number of 
diskettes can be less than the number of 
extents provided. 
DTF's, processing continues until the 
number of extents is exhausted. 
of the 


| 
| 
> | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


For all other supported 


Regardless 
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DTF type, for system files processing 
continues until all extents are exhausted. 


Di 


skette Qutput Files 


The volume serial numbers in the labels 
are compared to the serial numbers in 


the DLBL/EXTENT cards. 


If 'file ID' is supplied on the DLBL 
card, it will become the name of the new 
file on the diskette. If 'file ID' is 
omitted, the DTF name is used. 


Extent limits are determined by OPEN; 
any expired files that are overlapped by 
the file to be created are deleted. The 
operator is informed of any overlap with 
an unexpired file. 


All file names are compared with the 
name of the file to be created. If a 
match is found with an expired file, the 
file is deleted. The operator is 
informed of a match with an unexpired 
file. 


~The new HDR1 label is created and 


written back out onto the diskette. 


If a secured file is being created, the 
volume label is updated to indicate a 
secured volume. 


A CLOSE macro instruction must be issued 
to ensure that all records are written 
and to update the HDR1 label for the 
last volume of the file. 
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CONNON AND SPECIAL PURPOSE LOGICAL IOCS ROUTINES 


This section contains detailed descriptions 
of certain routines generic to logical 
IocsS. In general, these routines cannot be 
related to a specific file type or file 
processing methcd. Describing LIOCS in 
four volumes has made it necessary to 
include details of these routines in Volume 
1 even though they may relate to file 
processing described in other volumes. 


Included in this section ares 
e TES-Processor ($$BOESTV) 


© Open Monitor (#$BOPEN, $*BOPEN1, 
$$BOPEN2, $$FOPEN4, and $$BOPLBL) 


e Close Monitor ($$BCLOSE, $$BCLOS2, 
$$BCLOS3, S$H$BCLOS4, F$$BCLLBL, and 
¢$BCLRPS) 


e Open for self-relocating programs 
(SS$BOPENR, and $$BOPNR2, and $$BOPNR3) 


e RPS SVA initialization routine 
(SfBOPENS) and RPS phase loading routine 
($$VCPENT). 


e DASD File Protect and VTOC Display and 
Dump routines. 


e DASD RPS Common Close ($$#$BCLRPS) 
e Check Duplicate Device Assignments for 
Logical Units (S$$BOCPENC) . 


e Enqueue and Dequeue for VSE/VSAM 
Routines (S$EPENDQB) 


® SD Close Input and Output ($$BOSDC1) 

e Close, Free Track Function ($$BOSDC2) 

® Forced End of Volume for Disk (S$BOSDEV) 
e Dequeve Extent JIBs ($#BODQUE) | 

e Device Release (S$$BRELSE) 


The Charts section contains the detailed 
flowcharts for each of the routines , 
discussed. 


S$S$BOESTV: Error Statistics by Tape Volume 


—_a- 2D GEE CTD ED GRUED GERD TU em ame a — 


Charts FN-FO 


Objective: For tape, record TES information 
from the PUB2 table onto SYSREC as 
applicable, post the new tape open, and 


pass control to the next transient. 


Entry: 


1. From $$BOPEN1 or $$BPCP01 when tape 
unit ready. 


2. From $$BOPEN for job control tape OPEN. 


3. From a message writer routine to post 
OPEN and process new volume label. 


Exit: To next transient. 

Method: $SBOESTV tests the device type of 
the device to be opened. It does the 
following: : 


1. The tape label is read and compared 
with the label currently stored in the 
PUB2 table for: that device. 


2. Control is passed to the appropriate 
exit phase if the tape was previously 
opened. 


3. The tape open bit is posted, the volume 
serial number in the PUB2 table is 
saved, and control is passed to the 
appropriate exit phase if this is the 
first tape on the device. 


4. The tape open bit is posted and control 
is passed to the appropriate exit 
routine if the tape is unlabeled, there 
is no volume ID in the PUB2 table (the 
previous tape was also unlabeled), and 
individual recording was not specified. 


5. The TES record is written onto SYSREC, 
the tape open bit is posted, and 
control is passed to the appropriate 
exit phase if the tape is unlabeled and 
either individual recording was 
Specified or the previous tape was 
labeled. 


6. The TES record is written onto SYSREC, 
the tape open bit is posted, the new 
volume ID is stored in the PUB2 table, 
and the appropriate phase is fetched if 
the tape label read is different from 
the label in the PUB2 table. 


1.. Initialization of the Logical 
Transients Common Area and the Fetch. 
RPS Initialization Routine. 
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2. Tape Error Recording Routine for Job 
Control open. 


1. From an OPEN macro expansion in the 
preblem progran. 


2. From a successfully completed open 
routine. 


3. From the $$BCPENR or $$BOPNR2, DTF 
relocation routines. 7 


4, From a message writer routine. 


5. From the open routine for DTFCP or 
DTFDI files. 


Exits: To $$BOPEN1, $#BOFSTV, and $$BOPENS. 


1. If RPS is not yet intitialized, 
$$BOPENS is fetched to do so. 


2. S$$BOPEN tests the device type of the 
device to be opened. If the device is 
a tape, the logical transients common 
area is initialized for tape open. If 
S$$BOPEN was fetched by job control, an 
exit is taken to €$BOFSTV to do 
recording. If the open is not for job 
control, $$BOPEN1 is fetched. If the 
device is net a tape, initialization of 
the logical transients common area 
takes place and $$BOPFN1 is fetched. 


Objective: To determine, initialize for, 
and fetch the proper open routine for DASD, 
diskette, magnetic ink character 
recognition (MICR), magnetic tape, optical 
reader, unit record, and telecommunications 
files. , 


e To $$BOSFBL for DIF type code X¥'20' and 
» aaa ee | 


e To $$BOPLBL, and then to $$BOPEN2 for 
standard labeled magnetic tape files or 
ISAM files. 

e To $$B35400 for diskette files. 


e To an appropriate open routine if other 
files are to be opened. 


e To a message writer routine if an error 
has occurred. | 
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e To the problem program if no more files 
are to be opened. 


e To $$BOESTV for tape DTFs to do 
recording. 


“Method: The $$BOPEN1 phase begins the 


initialization of the open table located at. 
the end of the logical transient area. The 
open table is initialized for all file 


types and passes information to the 


Successive open phases. Next, the type of 
entry into the $$BOPEN1 phase is 
determined. If entry was made directly 
from an OPEN macro, the monitor prepares to 
open the first file specified in the macro 
operand. If access control is in the 
system, the monitor links first to the 
access control module residing in the SVA. 
If entry was made from another open phase, 
the monitor prepares to open the next file 
specified in the macro operand. If entry 
to the $$BOPEN1 phase was from a message 
writer phase or from a device independent 
file (CP or DI) open phase, processing 
continues on the current file. At this 
point $$BOPEN1 checks whether the control 
block is a DTF or a VSAM ACB by testing the 
type code (byte 20 of the control block). 
If the code is Y'28', the file being opened 
is a VSAM file with an ACB control block. 
In this case, phase $$BOVSAM is called. If 
the code is anything other than ¥'28', 
X*20', X'21', ¥'22", and X¥'23', S$BOPEN1 
loads and branches to $fBOPIGN. 


When $$BOPIGN returns control, $$BOPEN1 
determines the type of file being opened 
from byte 20 of the DTF table. If an 
invalid file type is detected, message 
4880I is printed and the job is canceled. 
The file type governs the functions that 
the open monitor must perform to open a 
particular file: 


e console (DTFCN) files are ignored. 


e Unit record (DTFCD, DIFPR, and DTFPT), 
optical reader (DTFOR), magnetic ink 
character recognition (DTFMR), compiler 
(DTFCP), and basic telecommunication 
access method - extended support 
(BTAM-ES) files are checked to validate 
the address limits of the respective DTF 
tables and the proper open phase is 
fetched. 


e Magnetic tape (DTFMT or DTFPH-MT) files 
are tested to determine whether they 
ares: 


1. work files, 


2. nonstandard label or unlabeled 
files, or 


3. standard label output or input 
forward or input backward. 


From this information the name of the 
proper tape open routine is determined. 


Imperative Macros 
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For output files with an IOREG specified by 
the user, $$BOFEN1 stores the address of 
IOAREA1 in the save area for that register. 
For the output and the standard label input 
files, $$BOPEN1 fetches S$$BOPLBL, to GETVIS 
an area for the labels. $$BOPLBL then 
calls $$BOPEN2 of the Open Monitor. For 
nonstandard labeled tape files, $$BOPEN1 
loads the user's IOREG, if specified, with 
the address of IOAREA1 and fetches the . 
proper tape open phase directly. 


For diskette files, S$BROPEN1 prepares to 
read sequential DASD labels from the label 
area into the lcgical transient area. 
$$BOPEN1 fetches diskette open phase, 
$$B35400, directly. 


1. To locate the PUB for the DASD, neeng 
the corresponding LUB pointer. : 


2. To test the PUB to make sure it is used 
for a 3340. 


3. To check the VOL ID to make sure that 
the corresponding 3340 is ready and the 
VOL ID is correct. 


Entry: From $$BOPLBL and reentry from 


$SBOMSG1. 


Exits: To S$BOPEN2 to continue OPEN 
processing for ISAM or to SteCh et for 
operator communication. 


Method: The logical unit address in the 
first type-1 label extent information of an 
ISAM file defines the correct size for all 
3340 data modules containing prime data 
and/or overflow areas of an ISAM 
multivolume file. The logical unit address 
of the first (or only). type- 4 label extent 
information defines the size of the 3340 
data module containing the index area(s). 


igno re option. 


Entry: From $$BOPEN1. 


e To $$BOPEN1 to continue opening the 
files. 


e@ To $$BOMSG1 if an error occurs. 


Method: $$BOPIGN determines if the COBOL 
open ignore option is specified for the 
file by testing bit 2 in. byte 16 of the DTF 
table. If the bit is on, a second test 
determines if the file is either unassigned 
or assigned ignored. If this is the case, 
the open for the file is bypassed, and 
control returns to S$BOPEN1 to open the 
next file. In all other cases, $$BOPIGN 
validates the address limits of the DTF 
table, and returns to $$BOPEN1 which 
continues opening the file. 


$FBOPEN2: Open Monitor, 


[S 
9) 


ase 2 Charts 


Objective: To read label information from 
the label area for standard labeled a 
magnetic tape and DASD files, and to fetch 
the required open phase for the file being 
opened. ee 

Entry: From $$BOPLBL, $S$BOPEN4, or from a 
message writer phase ($$BOMSG1). 


e To $$BOESTV for standard labeled tape. 


e To the required open phase determined by 
$$BOPEN1. 


e To $$BOMSG1 if an error is detected. 


e To phase IIPOPEN if an ISAM DTF is 
linked with a VSAM file. 


e To phase $$BOCISC if CDLOAD for IIPOPEN 
was not successful. 


Method: This phase of the Open Monitor 
reads the label information (stored by Job 
Control on the SYSRES label area) into the 
area obtained by $$BOPLBL through a GETVIS 
macro. 


For magnetic tape files no checking is 
required, and the appropriate tape open ; 
phase (determined by phase $$BOPEN1) is set 
up to be fetched after recording has been 
done in $$BOESTV to provide the additional 
processing required to open the file. 
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IBM IBM Systern/360 Assembler Coding Ferm eafncie 3 U, M050 


a aes U.S.A 


a 





Identification- 
Sequence 


Se ee er ee 
PTET TTT TTT TTT TT ReADElFORwWARD REMIND =|UNLIOIAD | |i TTT TIT TTT TTT TTT Tt xT 
jf) REVADDRs SY o00 ha, tT Tp a 











TTT TTT ETT TT Fiteaipiel=s Tpit Litt Tt EEE Ee 
SSORMAEGDOREGHS 302.7717 AaMGMAHSARGRATSHEGHGHGESGHGHEGEGEGWGGUGE  TOGRGED 
OIAIRIEIAI!|=AIRIEAOIME!,| | | | ERUee sepa bts fat ee | Rd 
BRGe CCEEABADINRCRIMOL CARGCT CELI FERC ROE RARER ESUER RABIES CER EEEE 
SAMABUNONRRBR Si. 01 AURIAHAMAAAANAHATRHSTSTATSWSGHORAEGEREGHS: SETSGE 
| MURIERIR= PTET EEE XE 
BBGRBGEGURNRHGY | (7\>2°0> 77a MAMATOMOGHGERUGTOTSZOGOSEOERESTOUGVSWOGESSEATGE 
Siar | TT icMoPl [Al TT TTT TT ET SEE RE HEE 
ee TORR ORC EAB MCL CELE EEE eet ERAGE REPRE ORES RAREE 
HL Us tel at 
‘TTT olpelM [lolepaisitie TT Tt t Tit ttt ttt tt TT EE EE 
SPOUAVOHSSAUAUSUOUGOGASEREAEOHSEREREGEGHSEGESHSHAHSERERERSRHRARERACEREREAEREEAES 
BARRA ERR A SAREE APACS TERRE RRS AP ARACEAE RRL ERE RERS ARTES ERRATA 
BUEABAHUHGHATGTOGHOUGHSGEUSGHRHGHGHSGEOHGHGHSWSGEGUREAHGHGHSAGRSAEAHSGEGEREREED 
REGHERE SRERRERSREH ED DURE ARERR EE ARERR Ee RASA ER REC SERRE 
BRAMRBEE CK o-Toz 1 SUuTGRORGAHGHGHSGSESREGHGTOUGWGUGTOGHGLGOGTGTGUSGEGEGGIGE 
Eolricpl | [| lelos! | Iti ttt tT BRSeaS RHE 
SAH GHSUOATAUGGUGGHGHGEGGHATGGHATSGRGTGGHGTSTEGESTSGEGESLSGHSTSGEGTSGTGTE RRRREE 
TERRRERGELAS BRERA AREER LEAT E A PERE ERRER AES RREREL 
HELE ECE REaE 
RESERLRR GRRE RRR ERT EMER AERA RE RARE RSA AREER eRe ERA ESE RES ERA ERR 
* A standard card form, IBM electro 6509, is available for punching source statements from this form. 
Figure 7. Sample OPEN DTFMT Macro Instruction 
For ISAM files, $$ROPEFN2 of the Open table, a portion of which is included in 
Monitor reads a single DLBL/EXTENT record. Figure 8, for the file OLDMSTR (refer to 
This record can contain more than one Volume 2 for the detailed entries in the 
EXTENT card image. The DIBL label type DTF table for magnetic tape data files). 
indicator is checked. If it contains 'V'*, Three of the DIFMT macro parameters 
the file is a VSAM file. In this case the determine which magnetic tape open phase is 
open-active indicator is reset and phase | required to open the file. They are: 
sIPOPEN is loaded using the CDLOAD 
function. IIPOFEN is part of the ISAM e TYPEFLE=INPUT 
interface program, IIP. The user return e READ=FORWARD 
address is stored from the user save area e FILABL=STD 
into the DTF. The file list pointer is | 
stored into register 0 of the user's save In addition to performing other functions, 
area, control is given to IIPOPEN, and the these parameters generate a ¥'14" in the 
B-transient area is released. If the DLBL type byte (byte 20) of the DTF table. This 
label type indicator contains 'C' or 'F*, type code controls the procedure followed 
indicating an ISAM file, the file type is by the Open Monitor in selecting the proper 
checked against the DTF type. Then the Open procedure. In this case, ¥'14! 
DASD address limits of each extent are. indicates to the Open Monitor that phase 
checked. Any extent errors cancel the job. $$BOMTO1 (Open Input Standard Labels, 
When checking of the extent address limits Forward) is needed to complete the open 
is complete, $$ROPEN2 fetches the function for the file OLDMSTR. 
appropriate open phase determined by 7 — 
$$BOPEN1. : The assembler generates the following 
expansion for the OPEN OEDHOTe macro 
instruction: 
Example of the Open Function r —_-—— —_—— “7 
7 i | CNOP 0,4 { 
| {| LA ,=C*'*$$BOPEN® | 
This example (see Figure 8) shows functions | | BAL 0, IJJOESYSNDX | 
performed to open a magnetic tape data file { } Dc A (OLDMSTR) : 
with symbolic filename OLDMSTR. | {| IJJO&SYSNDZ | svc 2 ! 
Oa cencenseene mane seis wnnenmaanamesinnmnianioonieoamall 








Figure 7 shows a typical DTFMT macro 


instruction as it might appear in a problem e cCNOP 0,4 is for boundary alignment. 
program. The macro instruction causes the 


assembler to generate a corresponding DTF e LA loads the address of the name of 


52 LIOCS Volume 1, General Information and Imperative Hacros 


Licensed Program - Property of IBM 


phase 1 of the Open Monitor into 
register 1. This is used by the 
supervisor to call the Open Monitor. 


e BAL causes a branch to the SVC 2 
instruction and saves the address of the 
ADCON A(OLDMSTR), which provides linkage 
so the open routines can address the 
DTFMT table named OLDMSTR. It also 
serves as linkage to allow return to the 
problem program when the open routine 
issues a SVC 11. 


e svc 2 instructs the supervisor to call 
and branch tc the TES processor, 
$S$BOPEN. 
for the previously processed magnetic 
tape unit and then writes the record on 
SYSREC. | 


e $$BOPEN then calls the Open Monitor, 
$S$BOPEN1, that locates the address of: 


1. The user's register save area in | 
storage. 


2. The label save area in storage. 
3. The DTF table for the file OLDMSTR. 


From byte 20 of the DTF table, Sf#BOPEN 
determines the DIF type (¥'14') and 
initializes to fetch $$BOMT0O1 after 
$$BOPEN2. 


$$BOFSTV is called and executed. 
$S$BOESTV creates the TES record for the 
previously processed magnetic tape and 
writes the record on SYSRFC. Then $$BOPEN2 
is called and executed. | 


Prior to $$BOPEN2, $$BOPLBL has checked 
if $JOBACCT is active. If the job 
accounting interface is active, the label 
Save area in the supervisor is used. 
$$BOPEN2 also searches the label area for 
the label information stored by job control 
for the file CLIMSTR. When this 
information is found, it is read into the 
label save area in main storage. $$BOPEN2 
then fetches the tape open phase ($$BOMTO1) 
determined by $$BOPEN1. 


$FRBOPEN creates the TES record 


$$BOMTO1 checks the actual tape labels 
against the label information in the label 
save area. If no errors are detected, this 
phase posts the file open in the DTF table 
(bit 5 of byte 36) and recalls $$BOPEN1 of 
the Open Monitor. The Open Monitor, in 
turn, returns control to the problem 
program. (In this example, only one file 
is specified in the operand of the OPEN 
macro. If the operand contains the names 
of more files, the Open Monitor opens the 
remaining files before returning control to 
the problem program.) 


: Open Monitor Label Space 
cr Chart AK 


Objective: To determine the size of the 
read-in area required to process the 
DLBL/EXTENT and/for the TLBL information and. - 
to issue a GETVIS for the required space. 


Entry: From $$BOPEN1. 


e To £$BOPEN2 for tape. 
e To $$BOPEN4 for ISAM. 


e To $$BOMSG1 if an error occurs. 


Method: $$BOPLBL, at open time, builds a 
parameter list and calls Symbolic Label 
Access to determine the amount of 
DLBL/EXTENT or TLBL information to be 
processed. If the space obtained by a 
previous OPEN or CLOSE in this job step is 
not sufficient to meet the label processing 
requirements, a FREEFVIS macro is issued to’ 
release this space and a GETVIS macro is 
issued to obtain the required space. 
Pointers and channel programs are then 
updated and an exit is taken to the next 
phase. 
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Logical Transient Area SS. 


Open Table 





COMMON SECTION FOR MONITOR PHASES INITIALIZED BY PHASE 1, CCB, SEEK/SEARCH 


FIELD, AND FIELDS FROM DIBADDR TO END OF TRANSIENT AREA ARE USED BY OTHER 
OPEN TRANSIENTS. 











































Supervisor 888 CSCDLB EQU 888 LABEL AREA FOR SD FILES 
TES Processor, $$BOPEN ORG BOPEN1+992 
992 WORK pe Dot WORK AREA FOR SEVERAL FUNCTIONS 
Communications Region fa) 1. Get cylinder address of SYSRES label information from communications region. 1000 CCB pe XL8'06' : CCB : 
2. Create the TES record for the previously processed tape unit, if any. 1008 pec XL8'00' 
: 3. Write the record on the system recorder file, SYSREC. 1010 NINE DC H'S' CONSTANT EQUAL 9 
Dislecenient 2E 3c SA ul 1018 SEKADR DC XL7'0' SEEK SEARCH FIELD 
Dieplecemient 46 1025 FLNAME DC CL7' * DIF NAME FOR LABEL SRCH 
decimal 1032 SENCCW CCW xX'04',WORK,X'20' ,2 SENSE FOR TAPE FILE PROTECT RING 
us 1040 CCWCHN CCW X'07',SEKADR,X'40' ,6 SEEK SYSRES LABEL CYL 
oi 1048 CCW X'31',SEKADR+ 2,X'40',5 SRCH ID EQ 
Open Monitor, Phase 1, $$BOPEN1 1056 ccw xX'08',*-8,0,0 TIC TILL ID FOUND 
1064 CCW xX'92',SENCCW,xX'40',8 READ ID M/T INTO CCW 
4. Calculate SYSRES track address of label information for MPS partition and store in 1072 CCW X'29',FELNAME,X'60',7 SEARCH KEY EQUAL TO DTF NAME 
Open Table at location DSKADDR+3. 1080 ccw x'08',*-16,0,0 TIC TO READ ID OF NEXT RCD 
eS Track=( $851) x2 (4) (7) 1088 RDCCW ccw xX'06',*,X'20',2300 READ DATA OF RECORD 
: 1096 ccw X'31',SENCCW,X'40',5 SEARCH ID EQUAL 
5. Calculate last valid SYSRES label information track and store in Open Table at 1104 CCW xX'08', *-B,0,0 TIC 
PIB Table location LSTTRK. 2 ‘ 1112 CCW x06! ,*,X'30! oa VERIFY 
Eger Tegel arent) 12 1120 ‘TYPE pe X"00" FILE TYPE FOR PH 2, TAPE ASSUMED 
6. Get address of problem program save area and store in Open Tabie at iocation (6) 1121 
E . REGADDR. 1122 pc OH'O' H~ALIGN FOLLOWING LIMITS 
Y Save Area WY; 7. Get address of label save area and store in Open Table at location LABADDR and_in 1122 ADDRLMTS DC XL6'01C8010A00C7' 2311 CCHH/cC 
Yi Address “Wy the data address portion of the READ CCW. 1128 pe H'1999' 2311 TOTAL TRACKS 
8. Convert the current date and store in Open Table at location DATE. (8) 1130 pe XL6'01C8011400C7' 2314 CCHH CC 
(9) Q. Set file list pointer to the address of the file to be opened. Get address of the DTF 1136 DC H'3999' 2314 TOTAL TRACKS 
table for the file. * FFOO IN NEXT DC'S HAS NO MEANING BUT IS REQ'D FOR DIVIDE BY 256 
Problem Program 10. Get symbolic filename from bytes 22-29 of the DTF table and store in Open Table 1154 DC XL6'FFO001130193' 3330 CCHH/CC 
(10) at location FLNAME (this symbolic filename is used for a SEARCH KEY EQ when (10) 1160 pC OH 7675" TOTAL TRACKS 
; a scan is made for the SYSRES label information for the file). 1124  FACTOR11 EQU BOPEN1+1124 
Save Area 11. Store address of the DTF table in the save area for general register 1. 1128 MAXADDR EQU BOPEN 1+1128 
(2) 2 1131 MAXHD11 EQU BOPEN 1+1131 


12, Determine DTF type from byte 20 of the DTF table. (In this example, the type is 
Job Name PSW X'14’ and $$BOPENT1 initializes to fetch the tape open phase $$BOMT01 after 
(8 bytes) (8 bytes) calling and executing phase 2 of the Open Monitor, $$BOPEN2.) 

13. Fetch phase 2 of the Open Monitor, $$BOPEN2. & 


General Registers 9-15 











BOPEN1+1173 


















































General Registers 0-8 (at) 1173 LSTTRK DC XL1'0' LAST VALID TRACK FOR JOB TYPE 
1174 DIBADDR DC AL2 (0) ADDR OF SEQ DISK INFO BLOCK 
Reserved Open Monitor, Phase 2, $$BOPEN2 1176 DSKADDR DC XL5'O! CCHR - LABEL INFO ON SYRES 
(6 bytes) — 1181  REGADDR DC AL3 (0) ADDR OF PRBLM PRGRM REGISTERS 
14. Initializes CCB to read from SYSRES. 1184 DC XL1'O' FORMAT 4 INDIC 
15. Set up base register with the address of the label save area from location LABADDR 1185 pc c's* MONITOR ID FOR MSG ROUTINE 
Floating Point Registers 0, 2, 4, 6 in the Open Table. 1186 Dc XL1'0o!' RETURN MSG INDIC 
{Included only if the 16. Search SYSRES label information track for MPS partition to locate record with a 1187 FLAGS DC XL1'O' BIT 6 ~ SYSTEM FILE ALREADY OPEN 
floating point option key equal to the symbolic filename stored in the Open Table at location FLNAME. * : BIT 7 - DASD FILE PROTECT 
was specified at system When the proper TLBL record is found, it is read into the label save area identified 1188 DATE pc XL3'0' CURRENT DATE 
i i by the address stored in the Open Table at location LABADDR. : 
generation time.) y P 1191 LoG52 Dc x'o~' BITS 1&2 - 1052 INDICATOR 








17. Put the SYSRES CCHHR address of the label information into the Open Table at 
location DSKADDRT. 


18. Fetch the tape open phase ($$BOMT01) determined in phase 1 of the Open 
Monitor, $$BOPEN1. 


$$BOMTO1: Open Input Standard Labels, Forward 


19. Determine if tape is at loadpoint and rewind if specified. 
20. Read VOL1 label from the tape and check the Volume Serial Number against that 


1192 LABADDR 
1196 LISTPNT 


y DC AL4 (0) LABEL ADDR IN CORE 

EQU BOPEN 1+1196 ADDR OF CURNT PSTN FILE LIST 
EQU BOPEN1+1187 SYRES LABEL ADDR FOR TAPE OPEN 
EQU BOPEN1+1192 1052 INDICATOR FOR TAPE OPEN 














DTF Table of the SYSRES TLBL information in the label save area. 
" . Bypass any additional volume tables. 
Bytes Contents . , 
22. Read HDR1 label from the tape and check the following items against the SYSRES 
ccs TLBL information. Insert the necessary default values for any blank TLBL entries 






or print the appropriate message for any errors. 


.. File ID 
.. File Serial Number 
. Volume Sequence Number 
. . File Sequence Number 
. Generation Number 
.. Version Number 
. Creation Date 






Indicators 






Logic module address 






X‘14' (DTF type) 






Indicators 






@ | = WEL 





23. Bypass any additional file header labels. 







Symbolic file name : 
24. Pass contro! to user’s iabel routine, if specified in the DTF table, to read and 


process user header labels. 





Indicators 





$$BOMTO7: Open Standard Labels, Input Forward 





| 25. Update the TLBL information in the label save area and write it back on the 
SYSRES label information track. 


j 26. Turn on the open indicator in byte 36 (bit 5) of the DTF table. 
27. Fetch the TES Processor, $$BOPEN. 
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Relocate DTF Address Constants 


constants from the assembled address into 
executable main storage addresses. 


Entry: From the OPENR macro to the label 


e To $fBOPNR3. 


e To the Open Monitor, $f#BOPEN, when the 
last DTF table is processed. 


Method: The $$BCPENR routine first 
determines if modification (relocation) of 
the DTF address constants is necessary by 
subtracting the assembled DTF table address 
from the relocated DTF table address. The 
relocation factor in register RELOCREG is 
the result of this operation. If the 
relocation factor is 0, no relocation is 
necessary. 


If relocation is required and if the DTF 
has not already been relocated, the | 
relocation indicator in the DTF is turned 
on. The CCW address in the CCB and the 
logic module address in the common portion 
of the DTF are then modified. If the 
required relocation was accomplished by a 
previous opening of the file, the entire 
relocation routine is bypassed for the 
file. | 


Following the modification of addresses 
in the common portion of the DTF, the 
individual DTF type is determined and the 
address of the corresponding address 
modification table is obtained. When the 
remaining addresses in the DTF have been 
modified, a branch is made to the ending 
routine. 


The ending routine determines the next 
operation. If there are more DTFs to be 
processed, a branch is made to the 
beginning of the relocation routine to 
repeat the procedure for the next DTF. If 
the last DTF has been relocated, the Open 
Monitor, $$BOPEN, is fetched. 


Objective: To determine if a physical 
device is assigned to more than one of the 
logical units specified in the operand of 


the OPENC macro. 


Entry: From an OPENC macro expansion to the 
label OPENCNAM. © 


Exits: To the problem program if no error 
is detected, or to CANCEL if a physical 
device is assigned to more than one logical 
unit. | 


Method: The $$BOPENC phase begins by 
building a table, called the OPENC table, 
containing the 2-byte LUB entry for each 
logical unit specified in the OPENC macro 
operand. Because the first byte of a LUB 
entry contains a pointer to a specific PUB . 
(physical device), the byte can be compared 
to the corresponding byte of any other LUB 
to determine if a duplicate assignment 
exists. (Refer to VSE/Advanced Functions 
Diagnosis Reference: Supervisor for 
additional information pertaining to LUB 
and PUB entries.) 


The comparison is carried out in the 
following’manner. Byte 0 of the first LUB 
entry in the OPENC table is compared to the 
corresponding byte in the second, third, 
fourth, etc., until the end of the table is 
reached. Then, byte 0 of the second LUB 
entry in the OPENC table is compared to the 
corresponding byte in the third, fourth, © 
fifth, etc., until the end of the table is . 
reached. The procedure is repeated until 
all of the LUB entries are similarly 
checked. If an equal comparison is made at 
any point in the procedure, checking is 
discontinued, error message 4885TI is 
printed, and the job is canceled. 


Enqueve and Dequeue for VSE/VSAM 


Objective: To enable the VSE/VSAM routines 
to enqueue and dequeue their OPEN and CLOSE 
routines in the B-transient area of the 
supervisor, although these routines are not 


themselves B-transient routines. 


Entry: From a VSE/VSAM routine that issues 
the ENQB macro. | 


Exit: To the calling routine that issued 


the ENQB macro. 


Methods: When a VSE/VSAM routine issues the 
ENQB macro, $$BENDQB is fetched (via SVC 2) 
from the core image library and put into 
the B-transient area. Control is 
transferred to $$BENDQB, which temporarily 
returns control (via SVC 8) to the routine 
that issued the ENQB macro. (The 
B-transient area is not released.) 
the DEQB macro is issued, control is 
returned (via SVC 9) to the B-transient 
routine $$BENDQB, which has been previously 
loaded into the transient area by the ENQB. 
macro. S$$BENDQB now executes an SVC 11 to 
release the B-transient area and to return 
to the highest-priority program ready to 
run. (Note: The ENQB and DEQB macros 
destroy the original contents of registers 
0 and 1. | 


When 
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Objective: To relocate the address 7 
constants in DTFCP, DTFPT, DTFDI, DTFDR, 
and DTFDU tables. | 


Entry: From $$BOPNR3. 


Exit: To $$BOPEN. 


Methods This phase is an extension of 
$$BCPENR and performs the same function in 
the same manner. 


$$BOPNR3: Relocate DTF Address Constants, 


SHES SD ED AE eS CHES NES eae RROD 


Objectives: To relocate the address 
constants of DTFs connected with unit 
record files. 


Entry: From $$BOPENR. 


e To $$BOPNR2 if other than unit record 
files still have to be relocated. 


e To the Open Monitor, $fBOPEN, if no more 
files have to be relocated. 


EE: ELD GEE ARES CRS SED GD GED EP GD 


D 


The MODLOOP subroutine performs the actual 
address modification using an address 
modification table. The following example 
of the relocation of a work file DTFMT 
table (see Figure 9) illustrates the 
operation of the MODLOOP subroutine and the 
use of the address modification table. 


Modification of the address constants 
starts with those in the common portion of 
the DTF table. At this time the following 
registers are loaded: 


e BASEREG - with the address of byte 0 of 
the DTF table (this register is used as 
a pointer within the DTF table). | 


© MODREG - with the address of byte 0 of 
the address modification table at the 
label COMMON. 


e CCWREG - with the address of byte 0 of 
the DIF table. 


The address modification table at the label 
COMMON contains three hexadecimal bytes, 
X'020808'. The first byte is a count of 


the number of address constants (ADCONs) to 


be modified; two in this case. This count 
controls the number of times the 


modification loop is used. The succeeding 
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bytes contain displacement values to update 
the register, BASEREG. 




















Se ee ee pee es ee ee cee | 
| Byte | Bits| Function = 
{ af ————}——_-—-—— a | 
| 0-15 | |CCB. | 
| (O-F) | | | 
{16(10) | 1¥'O8" indicates DTF | 
| | | relocated by OPENR. | 
{17-19 | {Address of logic module. | 
} (11-13) | | | 
{20 (14) | |DTF type (X'10') | 
$21(15) | 0 |1 = No rewind. | 
| | 1 #=|1 = Unload rewind. | 
| |} 2 {1 = Work file. | 
| {| 3 |1 = Read backward. | 
| 1 © |1 = Write. | 
| } 5 {1 = POINTW. | 
| 1 6  |1 = Force checking of read | 
| | | or write. . | 
| | 7 {1 = Forward space befor | 
| | | next operation. | 
{22-23 | |JNot used. | 
| (16-17) | | | 
{24-25 | |Record length. | 
| (18- 19) | | | 
{26-27 | |Maximum BLKSIZE. | 
| (1A~ 1B) | | | 
}28(1C) | {Read op code. | 
{29-31 | |EOF address. | 
| (1D-1F) | | | 
{32-39 |. |CCW. | 
$(20-27){ | | 
140-43 | {Block count, initialized | 
| (28-2B) | 100000000 for read forward, | 
| | {00400000 for read backward. | 
}44(2cC) | O {1 = Error routine. | 
| [| 1 {1 = Ignore. | 
| | 2 {1 = Read next record switch] 
| | 3 11 = Record fixed unblocked. | 
| | 4-7|Not used. | 
{;45-47 | {Address of error routine. | 
| (2D-2F) | | | 
| | 

| 


{Numbers in parentheses are displacements 


jin hexadecimal notation. 
Lu 


Le 





Figure 9. DTFMT Work File Format 


The first time through the address 
modification loop, the second byte of the 
modification table (¥'08') is added to the 
starting address of the DTF (BASEREG) to 
obtain the location of the CCW address in 
the CCB to which the relocation factor 
(RELOCREG) is added. The count of address 
constants to be modified is then reduced by 
1, and the modification loop is entered a 
second time. Upon reentering the 
modification loop, the BASEREG contains the 
starting address of the DTF+8 to which is 
added the third byte of the modification 
table (X'08'). As a result, BASEREG then 
points to byte 16 in the DTF table, that 
is, to the logic module address. The 
relocation factor is added to this address 
and the count of address constants to be 
modified is again reduced by 1. Since the 
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count now goes to 0, an exit is made from 
the modificaticnr loop. 


After determining that the DTF type is a 
DTFMT work file, the MODLOOP subroutine is 
again used. This time the register MODREG 
is loaded with the address of byte 0 of the 
address modification table at the label 
MAGWORK which contains four hexadecimal - 
bytes, ¥'030CO40C'. This means that three 
address constants (the address of the EOF 
routine, the data address in the CCW, and 
the address of the error routine) are to be 
modified. The register BASEREG contains 
the starting address of the DTF+16 (carried 
over from the modification of addresses in 
the common portion of the DTF). To this is 
added the second byte of the MAGWORK 
address modification table (xX'0C'). Asa 
result, BASEREG contains the location of 
the EOF routine address (that is, 16 + 12), 
or byte 28. | 


Note: Register BASEREG points to the start 
of a 4-byte field, the last three bytes of 
which contain the address of interest. 


The relocaticn factor (RELOCREG) is then 
added to the address constant. This 
procedure is repeated for the remaining two 
address constants in the DIF table. 


Objective: To initialize the fetch and page 
management channel programs for RPS, if 
this routine was called by IPL. To load 
the RPS local directory list and phase 
loading routine into the SVA, if this 
routine was called by $$BOPEN during the 
first DASD open. | 


Entry: From IPL and $$BOPEN. 


Exits: To IPL and $$BOPEN. 

Methods: When called by IPL, the SVA 
initialization routine determines the 
device type of SYSRES. If SYSRES is an RPS 
device, the device type is set in the fetch 
table for the core image library. 


If this routine was called by $$BOPEN 
during the first open of a DASD file, space 
is obtained from the SVA, and the local 
directory list and the phase loading 
routine are loaded into the GETVIS area of 
the SVA. A SYSCOM indicator (displacement 
¥'FC') is set when all operations are 
completed successfully, or when either the 
GETVIS or load operations fail. 


$$BOPENS exits back to IPL with an SVC 
11 or to $$BOPEN with an SVC 2. 


$S$VOPENT; RPS Phase Loading Routine 
Charts BIr-BU 


Objectives To locate in or load into the 
SVA the RPS phases for all access methods, 
when called by an open transient. To 
remove RPS phases and release SVA space for 


a terminating job, when called by $IJBEOT. 


Entry: From open transients when RPS 
support is provided for a DTF. From 
$IJBEOT when a job terminates. 


Exit: To the calling transient. 
Method: When called by an open transient, 
the RPS phase loading routine issues a load 
to search the RPS local directory list for 
the required phase. If the phase is not in 
the SVA, a GETVIS is issued to acquire 
Space and the phase is loaded. Exit is 
taken to the calling transient with the 
load address of the phase or an. 
unsuccessful condition code set. 


When called by SIJBEOT, the routine 
searches the RPS local directory list for 
phases that were loaded into the GETVIS 
area of the SVA for a terminating job. If 
this is the last job requiring the phase, 
the SVA space is released and the directory 
entry is set to inactive. On return to 
$IJBEOT no condition codes are set. 


SE: Close Monitor, Phase 1 Charts 


Objective: To determine the DTF file type 
and to fetch the proper close phase for 
sequential DASD, DAM, and ISAM files (Phase 
2 of the Close Monitor, $$BCLOS2 is fetched 
to handle other file types. For magnetic 
tape files, $$BCLOS3 is fetched). 


Entry: From a problem program CLOSE macro 
expansion, or from a successful CLOSF if 
more than one file is specified by the same 
CLOSE macro instruction. $$BCLOSE is also 
entered from phase 2 of the Close Monitor, 
$$BCLOS2. In addition, $$BPCLOS enters 
$$BCLOSE at EOJ to close any unclosed 3800 
printer extended buffering DTFs. ji 


Exits: 


e To the appropriate close phase. 


e To the message writer if an error is 
detected. 


e To the problem program if no files 
remain to be closed. 


@ To phase 2 of the Close Monitor, 


$$BCLOS2. 
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¢ To $$BPCLOS when $#BCLOSE was originally 
invoked by $$BPCLOS. 


Method: The first phase of the Close 
Monitor begins the initialization of a 
table, located at the end of the logical 
transient area, for the gone operation. 
though it is used by both “initialization 
(open) and termination (close) phases. 
Files requiring label processing, except 
for sequential DASD, also enter information 
into the GETVIS label area. 


Next, the S$#BCLOSE phase validates the 
address of the first 44 bytes of the DTF 
table for all file types except VSE/VSAM 
files; for VSE/VSAM files, phase $$BCVSAM 
is called. For magnetic tape (DTFMT, 
DTFDI, DTFPH, and DTFCP), unit record 
(DTFCD, DTFPT, CTFCN, and DTFPR), optical 
reader (DTFOR), and magnetic ink character 


recognition (DTFMR) files, f$BCLOSE fetches 


the second phase of the Close Monitor, 
$$BCLOS2. 


For all sequential DASD files, $$BCLOSE 
fetches the SVA link phase f$BOSFB1 to link 
to the $IJJGTOP SVA phase to complete the 
close processing. For ISAM DTFs, $$BCLOS4 
is called. For CAM DTFs, $fBCLRTS is 
called. : 


For diskette files, $$RCLOSE reads label 
information from SYSRFS into the transient 
label area at the beginning of the open 
table, saves the SYSRES CCHHR address of . 
the next record in the open table for use 
by the next close phase, and fetches the. 
diskette close phase $$BODIO4. | 


$$BCLOS2: Close Mo 


Charts 


nitor, Phase 2 


Objective: To initiate the proper close 


procedure for unit record, optical reader, 


MICR, and Optical Reader/Sorter files. 

Entry: From phase 1 of the Close ce 

$$BCLOSE. 

Exits: 

e To phase 1 of the Close Monitor, 
$$BCLOSE, for DTFCP DASD and ISAM-ADD 


files. 


e To $$BCLOSP for punch and paper tape 
files, — 


e To $$BCTCO1 for BTAM-EFS 
telecommunication files. 


© To $$BCLOS3 for magnetic tape (DTFMT) 
files. 


e To S$BCMRO1 for magnetic ink character 
recognition (MICR) type files. 
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To the message writer phase, $$BOMSG1, 
if an invalid file type is detected. 


e To $$BPCLOS (the 3800 printer automatic 
close module) when CLOSE was issued by 
$$ BPCLOS. 


/ 
1 


Methods The function performed by the _ 
second phase of the Close Monitor depends 
upon the file type: 


» For files opened to a 3800 printer, | 
$$BCLOS2 enters module IJDPR3 (residing 
in the SVA) at offset 32 to perform © 
close processing related to the 3800 
printer. The address of IJDPR3 is 
obtained from the Anchor Table Extension 
(ATY). The address of the AT¥ is | 
obtained by issuing a CDLOAD for phase 
IJDANCH¥Y. IJDPR3 is called only if the 
OPN3800 bit in COMRG is on, indicating . 
that one or more files were opened in 
3800 printer extended buffering mode. 


e For optical reader and unit records 
files, except paper tape and DTFCD punch 
files, the only function performed by 
phase $$BCLOS2 is to turn off the open 
indicator in the DTF table for the file 
being closed. 


e For DTFCD punch files, after turning off 
the open indicator, fSBCLOS2 fetches 
phase $$BCLOSP if error recovery is 
possible. | 


e For DTFCP and DTFDI magnetic tape files, 
$$BCLOS2 fetches phase $$BCCPT1 after 
first checking to determine whether or 
not tape error statistics by volume are 
being collected. For DTFCP and DTFDI 
DASD files, S$$BCLOS2 fetches the first 
Close Monitor phase, S$$BCLOSE. For 
DTFCP and DTFDI punch files, phase 
$$BCLOSP is fetched. 


e For all diskette input/output unit files 
$$BCLOS2 fetches the first close monitor 
phase $$BCLOSE. 


e For BTAM-ES telecommunication files, | 
$$BCLOS2 fetches phase $$BCTCO1. 


e For 3505 or 3525 with OMR or RCE 


specified, $S$BCLOS2 resets the device to 
the normal mode. 


S$BCLOS3: Close 


in 


Objective: To initiate the proper close 
procedure for magnetic tape files. 


ied 


ntry: From $$BCLOS2. 


ay 


its: To the appropriate close phase for 


eagneeic tape (DTFMT) files. 
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phase of the Close Monitor depends on the 
file type. 


e For DTFMT work files, f$BCLOS3 saves the 
console indicator in the open table for 
use by the next phase, and fetches phase 
$$BCMTO6 to close the file. 


e For all DTFMT input files, $$BCLOS3 
initializes the deblocker areas in the 
DTF table. For standard labeled input 
and output files, SYSRFS label 
information is read into the open table 
for use by the next phase. For blocked 
output files, the address of the logic 
module is stored ir the save area for 
register 11. The address of the TRUNC 
routine is substituted for the logic 
module address in the [TF and the TRUNC 
routine is executed. $$BCLOS3 then 
saves the console indicator in the open 
table, and fetches phase S$BCNTOS to 
close the file. 


® $£$BCLOS3 calculates the PUB2 address of 
a tape DTF to be closed and saves it in 
the open table. 


$$BCLOS4: Close Monitor, Phase 4 Ch 


Objective: To determine the DTF file type 
and to fetch the proper close phase for 
ISAM files. 


3: From $$BCLOSE. 


e To the appropriate close phase. 


e To the message writer if an error is 
detected. 


@ To the problem program if no files 
remain to be closed. 


e® To phase IITPCLOSE if an ISAM DTF is 
linked with a VSE/VSAM file. 


e To phase $#$ROCISC if CDLOAD for IIPCLOSE 
was not successful. 


Method: This phase of the Close Monitor 
begins the initialization of a table, 
located at the end of the logical transient 
area, for the clcese operation. This table 
is called the open table even though it is 
used by both initialization (open) and 
termination (close) phases. Files 
requiring label processing, except for 
sequential DASD, also enter information 
into the GETVIS label area. | 


For ISAM DTFs, tyte 16 bit 0 of the DTF 
table is checked. This bit is set to one 
by phase ISCOPEN if the ISAM DTF is linked 
with a VSE/VSAM file. In that case the 


close-active indicator is reset and phase 
IIPCLOSE is loaded using the CDLOAD 
function. IIPCLOSE is a part of the ISAM 
Interface program, IIP. The user return 
address is stored from the user save area. 
into the DIF, the file list pointer is 
stored into register 0 of the user save 
area, control is given to ISCCLOSE, and the 
B-transient area is released. 


For all ISAM DTFs not linked to a 
VSE/VSAM file, $$BCLOS4 reads label | 
information from SYSRES into the open table 
for use by the next phase, and fetches the 
ISAM close phase $fBCISOA. ? 


Objective: To determine the size of the 
read-in area required to process the 
DLBL/EYTENT and/or the TLBL information and 
to issue a GETVIS for the required space. 


Entry: From $$BCLOSFE. 


e To $$BCLOS2 for tape. 
e To $$BCLOS4 for an ISAM file. 


e To $$BOMSG1 if an error occurs. 


Method: $$BCLLBL, at close time, builds a 
parameter list and calls Symbolic Label 
Access to determine the amount of 
DLBL/EXTENT or TLBL information to be 
processed. If the space obtained by a 
previous OPEN or CLOSF in this job step is 
not sufficient to meet the label processing 
requirements, a FREEVIS macro is issued to 
release this space and a GETVIS macro is 
issued to obtain the required space. 
Pointers and channel programs are then 
updated and an exit is taken to the next 
phase. 


DASD RPS Common Close 


Charts 


Objectives To reestablish the original DTF 
that was modified for ISAM/RPS or for DAM 
DASDs. 

Entry: 


e From $$BCLOSE or $$BCLOS2 for DAM or 
ISAM DTFs. 


e To $$BCLOSE for direct access .or IOCS 
type DTFs. 


e To $$BODACL for direct access type DTFs 
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with user trailer labels. 
° To $$BOISOA for indexed sequential 
access type DTFs. 


Method: This routine is called when the DTF 
or the device being closed was modified to 
support RPS. 7 


All access methods use this routine. 
Therefore, it is necessary to first 
determine the DTF type, since the 


displacements are different in each case, 
Refer to Figures 10 and 11. 


: | Dev |DTF 

DTF Byte | Type |Type | 
. Bit! |Bit2 

DTFDA 

No trailer labels 7 | $$BCLOSE 
$$BODACL 


1 and DTFPH 
$$BCISOA 


Type Code 


with trailer 22 32(20) 
labels 


DTFIS (all) 24,25,26,27 | 65(41) | 4,73 


1 If this bit is set on, the device supports RPS. 


2 If this bit is set on, the DTF extends into the partition 
virtual area, 














DTFDA 





3 Bit 4 on indicates prime data. Bit 7 on indicates index. 


Figure 10. Use of Different DIF Types by | 


S$BCLRPS | 


The addresses of the original. logic 
module and channel program are restored in 
the DTF. The bits indicating an RPS DTF 
and that it has been extended into the 
virtual area are turned off. The user save 
area that was obtained for the DTF 
extension is freed, and the use count for 
the RPS logic module is decremented. 


Objectives To restore the DTF to its 


Original state in the event the file was 
not opened. 


Entry: From $$BCLOSE. 


-e To the CLOSE Monitor, $$BCLOSE. 


Methods: This routine is only entered if the 
file was not opened successfully. It 
restores the DIF to its original state and 


returns to $$BCLOSE to process another DTF. 
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72 Byte Register Save Area 


256 (100) 


Additional Work Space 
256 bytes for DAM 
128 bytes for ISAM 


r Ee ae ee ae eT a ee eg aE ee ee ee 
10 (0) | 
| Channel Program | 
i (Variable Length) | 
{ | 
SSS | 
1 | 
| Work Space | 
{ : i 
l | 
( ( 
| —-—-—_--_------——- | 
{ {172 (AC) (Except ISAM) | 
| {Sector values | 
(up to 4) f . 
1176 (BO) 1180 (B4) | 
{Address of }Address of original | 
[original channel |logic module | 
| program 7 | j 
{ SS —| 
184 (B8) | 
[ 

| 

| 

[ 

| 

| 

| 

| 

| 

i 

| 


| 
{ 
i 
l 
l 
l 
{ 
; 
( 
{ 
l 
l 
E 


| 
| 
| 
| 
| 
L 








ISAM RPS or DAM DASD Device 
Independent Extension Work Area 


Figure 11. 


$$BOSDC2: 


co «eG? AAS ee ane a bead 


Chart CC 


Objective: To free any tracks held by the 
file being closed. 


Entry: From ISAM CLOSE. 


® To the close monitor, $$BCLOSE. 


e To $$BCISOA for ISAM files. 


e To the problem progran. 


Method: This routine searches the track 
hold table to determine whether a track is 
being held by the file being closed. If 
so, an SVC 36 is issued to free the track. 
If another file remains to be closed, 
control returns to the close monitor, 
S$$BCLOSE. If ISAM files are being 
processed, control returns to $$BCISOA. 
Otherwise, control returns to the problem 
program. 
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SD Clese, Chart CD 


e: When FEOVD has been specified, 
closes the current volume and 
new volume. 


e To the TES processor $$#BOPEN. 


e To the problem progran. 


Method: An interface to the OPEN/CLOSE SVA 
phase is established allowing the FEOVD 
request to be processed. 


Objectives To find the JIB (Job Information 
Block) chain for a particular logical unit; 
and to clear any extent type JIBs> 
associated with the logical unit, and 
release them to the available JIB chain. 


Exit: To the problem program if no files 
remain to be opened, or to the TES 
processor, $$BOPEN, unless the name of the 
phase to be returned to is supplied by. the 
calling phase. 


Method: After storing the contents of 
registers 3 through 8 and the name of the 
phase that is tc be returned to, if 
specified, phase $$BODQUE locates the 
proper 2-byte entry in the LUB table for 
the logical unit specified. and examines the 
second byte of the LUB entry to determine 
if any JIBs are chained to the LUB. If 
JIBs are chained to the LUB; that is, if | 
the second byte of the LUE is not hex 'FF*, 
the address of the first JIB in the chain 
is calculated by adding the pointer (byte 2 
of the LUB) multiplied by 4 (the length of 
a JIB entry) to the starting address of the 
JIB table. 


Byte 2 of the JIB entry is then examined 
to determine if the JIB contains an extent. 
If the JIB contains an extent, the extent 
is cleared. Once the extent is cleared, 
the pointer to the next JIB in the chain is 
obtained from the fourth byte of the 
current JIB. The current JIB is then | 
placed in the available JIB chain and the 
pointer.to the' first available JIB (FAVP) 
is modified accordingly. When the JIB has 
been placed in the available chain, or if 
the JIB does not contain an extent, the 
address of the next JIB in the chain is 
calculated using the pointer obtained from 
the fourth byte of the current JIB. The 
procedure is repeated for the next JIB. 


Common 


Note: All of the JIB processing described 
is handled through the supervisor extent 
interface. 


Phase $$BODQUE then fetches the calling 
phase or the first phase of the TES 
processor, $$BOPEN, if the name of the 
calling phase was not supplied and there is 
another file to be opened. If the name of 
the calling phase was not supplied and 
there are no other files to be opened, 
phase $$BODQUE returns control to the 
problem program via an SVC 11.- 


$$BRELSE: Device Release Charts EE-EG 


Objectives: To perform the actual device 


release of the units in the table released 
by the RELEASE macro. 


Entry: Fetched by RELEASE from SYSRES to 
the transient area. 


Exits: 
e To the problem program via SVC 11. 


e To RELEASE via LINKREG. 


Method: To perform the actual device 
release, the transient sets the unit to the 
permanent assignment, if one exists. 
Otherwise, the device is unassigned. If 
the device is at permanent assignment 
level, the transient takes no action on the 
unit. Before any release is attempted, a 
check is made for ownership of the unit. 

If the requesting partition does not own 
the unit, or if the unit is already 
unassigned, the transient ignores the 
request. 


The logical transients included in this 
section of the manual are those that 
pertain to sequential, indexed-sequential, 
and direct access DASD files. 


BOFLPT: DAS 


isa 
ola 


Objective; To place the upper and lower 
extent limits into Job Information Blocks 
(JIBs) to provide file protection for DASD 
files. 

Entry: 


e From phase $$BOISO7 for ISAM files. 


Exits: 


e To the open monitor, $$BOPEN, if more 
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files are to be opened and a specific 
phase name is not supplied. 


e To the problem program if a specific 
phase name is not supplied and no more 
files remain to be opened. 


° To the transient phase specified by the 
calling phase. 


protection for DASD files by storing extent 
limit information in the JIB table. For 
the IBM 2311 Disk Storage Drive, the IBM 
2314 Direct Access Storage Facility, and 
the IBM 2319 Disk Storage Facility, the 
lower and upper cylinder limits are stored 
in a single JIB. For the IBM 3330, 3340, 
and 3350, the extent limit information is 
stored in two chained JIBs, the first 
containing the lower extent limit and the 
second the upper extent limit. The extent 
JIBs are chained to the Logical Unit Block 
(LUB) entry to which the device is 
assigned. Further information pertaining 
to the JIBs and LUBs is found in 


Supervisor. | 
The $$BOFLPT phase begins by determining: 
e The number of exterts to be processed. 


e The addresses of the DLBI-EXTENT card 
- image, FAVP (the pointer to the first 
available JIE), and the JIB table. 


e The file type. 
e The device type. 


When these factors are known, the phase 
determines the address of the LUB entry for 
the logical unit used by the file. The 
contents of the LUB are then loaded into a 
pair of registers, LUBADRLL (lower limit) 
and LUBADRUL (upper limit), that are used 
to insert the extent information into 
extent type JIBs. 


The second byte of the LUB contains a_ 
pointer to the first JIB in the chain for 
the LUB (if the byte does not contain 
X'FF', indicating that no JIBs are chained 
to the LUB). This pointer calculates the 
address of the JIB. The JIB, in turn, 
contains a similar pointer that calculates 
the address of the next JIB in the chain. 

A pointer of ¥'FF' indicates the end of the 
chain. 


If extents for the file remain to be 
processed and one of the following 
conditions is reached, phase $$BOFLPT 
obtains and builds a new JIB entry: 


e No JIBs are chained to the LUB. 


4V96A is issued. 
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e No extent type JIBs remain in the chain. 


e The end of the JIB chain is reached and 
more JIBs are required. 


The address of the new JIB is calculated by 
using the pointer to the first unused JIB 
in the JIBs available chain, found in 
location FAVP in the supervisor. As in the 
case of JIBs chained to the LUB, this new 
JIB contains a pointer to the next 
available JIB that will be used if needed. 


After the extent information is stored 
in the JIB(s), the pointers are modified 
(as required), to complete the chain and 
the registers are restored. From 
information passed by the calling phase, 
$$BOFLPT determines the next action 
required and issues either an SVC 2 to 
fetch the proper transient phase, or an SVC 
11 to return to the problem progran. 


Chart FD 


Objectives To determine the logical unit 
(SYSLOG or SYSLST) on which the operator 
wants the VTOC displayed, and to print an 
error message if SYSLST is the unit 


selected but not assigned to a printer. 


Entry: From phases $$BODMS2, $$BODIO8, 
$$BODSMO, or $$BOMSG2 when the operator's 
response is DSPLYV. 


e To the second phase of VTOC display, 
SS$BODSPW. (If a diskette is being 
displayed, exit is to phase $$BODSPO.) 


e To job cantrol via an SVC 11 if the 
operator's response to message 4V95A is 
END or CANCEL and the open was for job 
control. — | 


e To phase $$BCNCL via an SVC 6 to cancel 
the job if the operator's response to 
message 4V96A is END or CANCEL and the 
open was not for job control. 


Method: The first phase of VTOC display 
issues a message on SYSLOG to determine 
whether the operator wants the VTOC 
displayed on SYSLOG or on SYSLST. If the 
operator's reply is SYSLST, a check is made 
to ensure that SYSLST is a printer. If 
SYSLST is not a printer, error message 

If the VTOC is to be 
displayed on SYSLST, preparation is made to 
start the display on a new page. Phase 
$$BODSPV then fetches phase 2 of VTOC 
display, $$BODSPW (or, if a diskette is 
being displayed, $$BODSPV fetches 
$$BODSPO). har ae 
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$S$BODSPW: VTOC Display, Phase 2 Charts 
FE-FF 


SYSLOG, the VTOC for the volume currently 
being opened. 


Entry: From the first phase of VTOC 
display, $$BODSPV. 


Exit: To $$BOMSG1 or $$BODSMW. 


Method: The volume label on the current 
volume being opened is read to retrieve the 
pointer (CCHHR address) to the VTOC and the 
volume serial number. A header line is 
printed to indicate the date and identify 


the volume by the volume serial number. 


Next, the first label in the VTOC (format-4 | 


label) is read to determine the limits of 
the VTOC, and the CCW chain is initialized 
to read the file labels (format-1) 
contained in the VTOC. 


The file label for each file on the 
volume is displayed by printing the 
contents of the label. The first line 
printed for each format-1 label contains 
the first 59 bytes of the label and 
includes: 


filename 

format identifier 

file serial number 
volume sequence number 
creation date 
expiration date. 


Succeeding lines printed for a format-1 
label contain extent information, Each 
line contains a maximum of three extents. 
(If more than three extents are specified 
for the file, the additional extents are 
contained in a format-3 label.) When all 
extents for a file have been printed, phase 
$$BODSPW initializes to process the next 
format-1 label in the same manner. 


DSPLYV DISPLAY 


Serial No. Volume No. Creation & Expiration Dates 


VOLUME SERIAL NOe IS 1111411 01/09/73 


PAYROLL MASTER INPUT FILE 41111111 0001 490013-63016D 


22100 008 40000-00860013 a ee 


Extents 


SYSTEM WORK FILE NUMBER 1 11111111 ooo1 490013-63016D 


0101 o0¢c.0000-00C60013 


3330 INDEXED SEQUENTIAL OPEN STD LABELED 411111 0001 490013~-4900F9 


0100 oooeoo00-003F0013 





VTOC DISPLAY COMPLETED 


me eee mmm eee ee ees ee eel 


Figure 12. VTOC Display of Disk Pack 


(DSPLYV Response) 


When all format-1 labels in the VTOC 
have been processed, the message 'VTOC 
DISPLAY COMPLETED! is printed and control 
is passed to $$BOVDMP. Figure 12 is a 
sample of the VTOC display printed by this 
phase. 


Common 
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| ssBop spo: 


Objective: To display, on either SYSLST or 
SYSLOG, the VTOC for the diskette currently 
being opened. 


Diskette VTOC Display, Chart JA 


Entry: From the first phase of VTOC 
display, $$BODSPV. 


Exit: 


et 


To $$BODIO8, S$$BODMSG, or $$BODSMO. 
Methods The volume label on the volume 
currently being opened is read to retrieve 
the volume serial number. A header line is 
printed to indicate the date and identify. 
the volume by the volume serial number. 
Next, the CCW chain is initialized to read 
the file labels (HDR1) contained in the 
VTOC. 


The file label for each file on the 
volume is displayed by printing the 
contents of the label. The printed line 
includes: 


file name 

beginning extent 

end extent 

volume sequence number 
creation date 
expiration date 


When extents for a file have been printed, 
phase $$BODSPO initializes to process the 
next label in the same manner. 


When all HDR1 labels in the VTOC have 
been processed, control is returned to the 
calling transient. Figure 13 is a sample 
of the VTOC display printed by this phase. 


came Cane Ge GERD GED GED GUD OUD GED GRD CE GED CD REED SED CUS GED OD ENED CoD SND GY GU CD GED ome Ge ORD SED om Gee CoE Sm cD Ge Sum meme ee Coe CO com Gem oun Gem cme Gee Sm ene 


Beginning Extent Volume Sequence No. Expiration Date 


File Name ‘End Extent Creation Date 


VOLUME SERIAL NO. IS HWS009 03/30/73 


{NPUT 05001 08026 01 721201 741231 


INPUT 09001 10026 01 721201 741201 


DMPVTOC 11001 11026 730319 741231 


TSTJUCL 12001 13026 730321 741231 


VTOC DISPLAY COMPLETED 





Figure 13. VTOC Display of Diskette 


(DSPLYV Response) 


Objective: To provide a list of all the 
labels in the VTOC for the diskette being 
Opened. 
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Message Writer, SfBODMS2, or $$BODIO8, when 
the operator's response is CANCELV, or from 
the problem progran. “= 
Exits: To phase $$BCNCL via SVC 6 to cancel 
the job if $$BOVDMO is entered from the 
message writer phase ¢$f$BODMS2, or to the 
problem program, or to $$BOWDMO to continue 
CANCELV. | 


Method: Phase $#ROVDMO reads the VOL1 label 
to retrieve the volume serial number for © 
the volume being opened. A header line is 
then printed on SYSLST to indicate the date 
and identify the volume with the volume 
serial number. If SYSLST is not assigned 


to a printer, the VTOC Dump is ignored. 


Objective: To provide a listing of all the 
labels in the VTIOC for the diskette. 


the user's program. 
Figure 14 is a sample of the VTOC Dump 
printed by this phase. 


Method: All the VTOC labels for unsecured 
files (except blank labels) and the file 
being accessed (whether secured or 
unsecured) are listed. Any other secured 
files are not listed. When-all labels have 
been printed, an EOJ message is printed and 
control returns to the user or to job 


control. 


Note: NB, NS, NF, NE, or NV indicate that a 
label field is Elank. B,S, P, E, or V 
indicate that the label field was found to 
be not blank. 


Chart GA 


Writer Phase 1 
Objective: To initialize the message output 


area, SYSLOG CCE and CCWs, and to fetch 
phase 2 of the message writer, $$BODMS2. 
Entry: 


e From the diskette VTOC display phase, 
$$BODSPO. oe 


°® From a diskette open or close phase. 
e From the DTFCP open phase, $$BODUCP. 


writer, $S$BODMS2. 
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File Name Beginning Extent No Bypass Volume Sequence No. Expiration Date End—of—Data 





Creation Date -No Verify 


Block Length End Extent | No Write Protect 
VOLUME SERIAL NO. IS HWS009 Bank | 
| || | 
00008 HDR1 LABEL 
t+ + 4 | 
0 


INPUT1 128 05001 08026 NB NS NP NE 721231 741231 NV 09001 


pt 


No Security No Exchange 


— 


00009 HDR] LABEL 

INPUT2 128 11001 10026 NB NS NP NE 07 721201 741231 NV 11001 
00010 HDR] ies 

DREN TOG 128 11001 11026 NB NS NP NE 730319 741231 V 11007 


00011 HDR1 LABEL 


TSTJUCL 08 


oO 


12001 13026 NB NS NP NE 730321 741231 V 12020 
00012 HDR1 LABEL 
00013 HDR1 LABEL 
00014 HDR1 LABEL 
00015 HDR1 LABEL 
00016 HDR1 LABEL 
00017 HDR1 LABEL 
00018 HDR1 LABEL 
00019 HDR1 LABEL 
00020 HDR1 LABEL 
00021 HDR1 LABEL 
00022 HDRI LABEL 
00023 HDR1 LABEL 
00024 HDR1 LABEL 
innos HDR? LABEL 
00026 HDR1 LABEL 


VTOC LISTING COMPLETED 





VTOC Dump cf Diskette (CANCELV 
Response) 


Figure 14. 


Method: The calling phase supplies the 
following information to the message 
writer: 


e Register 0 contains the last four 
characters in the name of the phase 
requesting the message. On cancel 
messages, register 0 need not be 
initialized. $$BO is assumed for the 
first four characters of the phase name. 


e Register 2 contains the address of the 
DTF table for the current file. 


e Register 3 contains the message code (in 
binary) for the message to be printed. 
This code is converted to the last two. 
digits of the message number (X¥ in the 
example 4nX¥XT). 


‘Imperative Macros 
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e Transient region + 1185 contains the 
numeric decimal value assigned to the 
various open/close phases for message 


numbering (X in the example 4¥nnI). 


e Transient region +. 1000 contains the 
start of the CCB. 


The message writer overlays the first 888 
bytes of the transient region. Therefore, 
any information that the calling phase 
needs to save is located beyond this point. 


This phase first saves the last four 
characters in the name of the phase 
requesting the message. It initializes the 
SYSLOG message cutput area with the 
organization type numeric code, DTF file 
name, and symbolic unit and constant. It 
builds the SYSLOG CCWs for writing the 
message and reading the response, and © 
determines if the required message is in 
this phase of the message writer. If it is 
not in this phase, the routine determines 
which overlay phase contains the message 
(either $$BOMSG3, S$S$BOMSG4, $H$BOMSGS, 
$$BOMSG6, or $$BOMSG7) and fetches $$BODMS2 
to load the required overlay phase. 


ette Open Frror Message 
Charts GR-GC_ 


Objectives: To issue an error message to 
the operator, read the operator's reply (if 
an IBM 1052 Printer-Keyboard is assigned to 
SYSLOG) or exit to the phase that requested 
the message (after ensuring the validity of 
the operator's response). Also, to cancel 
the job either by operator request or, if 
the message type indicates this, by 

end-of- job. 


Entry: From phase 1 of the Diskette Open 
Error Message Writer, $$BODMSG. 


e To the VTOC dump phase, $$BOVDMO. 


e To phase 1 of the VTOC display routine, 
$$BODS PV. 


e To the diskette open/close organization 
phase requesting the message (if a 
cancel was not encountered). 


Methods S$SBODMSG supplied the following 
information to this phase: 


e Register 1 contains the name (last four 
characters) of the message overlay phase 
to fetch if the required message appears 
in some other phase than $$BOMSG1. 


e Register 3 contains the address of the 
message to be written on SYSLOG. 


This phase determines the message type. It 


can be either a file overlap pack, wrong 


pack, or other. 


For wrong-pack type, the message is 
initialized with the pack number and the 
wrong-pack switch is turned on. This 
switch is interrogated later in the routine 
to test if the operator. has mounted the 
correct pack. 


Next, the routine determines if the 
message to be written on SYSLOG is in main 
storage. If the message is not in main 
storage, the message overlay phase 
containing the required message is loaded 
into main storage. The message overlay 
phases consist of $$BOMSG3, $S$BOMSGH, 
$$BOMSG5, S$$BOMSG6, and $$BOMSG7. These 
phases contain messages only. The message 
is then moved to the SYSLOG output area and 
an SVC 0 is issued to type the message and 
read the reply. 


If the message indicates the job is not 
to be canceled, the routine determines if 
the user wants a VTOC display. If a VTOC 
display is wanted, the routine issues an 
SVC 2 to fetch $$BODSPV, the VTOC display. 
phase. If the user does not want a VTOC 
display, the routine tests for a D-type 
message. — 


If the message is a D-type, the message 
return indicator is set, the address of the 
next phase name is retrieved, and an SVC 2 
is issued to fetch the return phase. If 
the message is not a D-type, the routine 
tests the wrong-pack switch as previously 
mentioned. 


The message writer issues an illegal 
response message for the following 
conditions: 


1. Operator reply of IGNORE for a D-type 
message. 


2e Equal file ID message. 
3. No EXTENT to be bypassed. 
4. Next pack not mounted. 


If the job is to be canceled, a test 
determines if the job control open switch 
(in communications region) is on. If so, 
an SVC 11 is issued to return to job 
control. If the switch is not on, the 
routine checks to determine if a request 
has been made for a VTOC dump. If yes, an 
SVC 2 is issued to call the VTOC dump 
transient, $$BOVDMO. If a VTOC dump has 
not been requested, an SVC 6 is issued and 
the job is canceled. 


Figure 16 shows the message code (passed 
via register 3) together with the last two 
digits and action indicator of the 
associated number. For reference purposes, 
the text of the message is also included. 
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the reply from the operator. 


Entry: From $$BODSPO, $$BODIO1, $$BODIO5, 
and return from $$BODSPV. 


Exits: The exit depends on the operator's 
reply to message 4n99D. 


e If reply is YES, control returns to the 
problem program. 


e If the reply is FOB, NO, CANCEL, or 
CANCELV, the problem program is 
canceled. If a VTOC dump is requested, 
$$BOVDMO is fetched. If $$BODSMO was 
fetched by job control, an exit is made 
to jcb control. 


e If the reply is DSPLYV, $$BODSPV is 
fetched. 


Method: After gathering preliminary data 
about the calling routine, $$BODSMO issues 
message 4n99D, "DATA SECURED FILE/VOLUME 
ACCESSED'. If the operator types YES on 


SYSLOG, the file is made available. 


Objective: To provide a list of all the 


labels in the VTOC, for the volume’ béing 
opened. 


Entry: From phase 2 of the Disk Open 
Message Writer, S$$BOMSG2, when the | 
Operator's response is CANCELV, or from the 


problem progran. 
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Exits: To phase $$BCNCL via an SVC 6 to 
cancel the job if SSBOVDMP is entered from 
the message writer phase $$BOMSG2, or to 
the problem program, or to $$BOWDMP to 
continue CANCELYV. | 


Method: Phase $$BOVDMP reads the VOL1 label 
to retrieve the volume serial number and 
the CCHHR address of the VTOC for the 
volume being opened. A header line is then 
printed on SYSLST to indicate the date and 


identity of the volume with the volume 


serial number. If SYSLST is not assigned 
to a printer, the VTOC Dump is ignored. 


labels in the VTOC. 


Entry: From phase 1 of the VTOC dump, 
Exits: If no record if found, exit is to 
the disk message writer, $$BOMSG1. 
Otherwise, control returns to job control 
or to the user's program. 


Methods All the VTOC labels for unsecured 
files (except blank labels) and for the 
file being accessed (whether secured or 
unsecured) are listed. Any other secured 
files are not listed. A maximum of five 
extents are printed on a line. When all 


“labels have been printed, an EOJ message is 


printed, and control returns to the user or 
to job control. 


Figure 15 is a sample of the VTOC Dump 
printed by this phase. 
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CANCELV DISPLAY 


VOLUME SERIAL NOs 1S 111111 


g000000004 FORMAT 4 LABEL 


04040404 04040404 04040404 04040404 04040404 04040404 04040404 
ooooo1eF Oocaoo0e OO3A8001 ooon0nCe O0141Cr7E Geededo’ 02161611 
ooogo000 aoaoo000 aoo1o000 oogocoo0 §«€©90001z300 «ooCocc00 §€agooo000 


oooo000c05 FORMAT S LABEL 


o505050S oaovoo000 oooop000 ooo00000 ‘ooo00000 ooDnonoO0 oooooooo 
Qoocoo0o ooooo0o00 aooocc00 agogo00000 aggoo00c ano00000 caogo0ccoo 
oooo0o00 oocoo00g agood0o0 agoooo0cg goo00cc0g cooo0000 coocoood 


oo000000006 FORMAT 1 LABEL 


PAYROLL MASTER INPUT FILE 


wee eee eee wee 


04040404 04040404 04040404 04040404 F 4000000 
ooo0c008 oooon00c0 gooocoo0 ao000000 aon00000 
oo0o000c000 Oocon000 acooocooo ono0c0000 


Oooc0000 goo00000 aooocc000 canoo0000 FSoo00c00 
Qooo0000 aooooocoo oconoo00 ooo00o00 § 6oo000000 
oooo0c000 oocoo0000 aogo00000 coo000oo 


SERIAL NOe 411111 VOL NO» 0001 490013-63016D 014040 


SYS« CODE IS DOS/370. VER 4 


40404040 40404000 onnonona Oooao00cg goon8o40 40404000 oooooo0d 4040 


e100 00840000-00880013 ocOq00 aoooo00d0-o000000c Aono oooooodd-oo000000 


pooooo0oo? FORMAT 1 LABEL 
SYSTEM WORK FILE NUMBER 1 


POINTER §$S O000000000 


SER'AL NOoe 1234111 VOL NO. COOL 490013-63016D 010700 


SY¥S« CODE IS DOS VERSION S 


ooooo00o «xoo000040 «aogoooo90 conooodo gooo0000 ao0oooo00 aooooo0ou anooo 


0101 oOOcBR0000-00¢.0013 O000 f0000000-00000000 oo00 ooooo000-oo000000 


gogg00og0c008 FORMAT 1 LABEL 


3330 INDEXED SEQUENTIAL OPEN STD LABELED 


POINTER 1S googp00000 


SERIAL NOe 114212 VOL NO» 0001 490013-4900F9 010700 


SYSe CODE IS «x RAFTOL »™ 


ogcoo00G go000040 «aooooo00o0 onoo000c0 goooo000 agoocao00 aooo0o000 6Cooo0 





VTOC LISTING COMPLETED 


Figure 15. 


D 
Cc 


VTOC Dump of Disk Pack (CANCELV 


sk Open Error Message Writer, 
art FJ 


[" Ih 


t 


Objective: To initialize the message output 
area, SYSLOG CCE and CCWs, and to fetch 
phase 2 of the message writer, $$BOMSG2 for 
informational messages. For messages 
requiring operator action/response, 
S$$BOMSVA is fetched, which in turn 
transfers control to the SVA. 


Entry: 


e From a DASD oren or clcse phase. 


e From the DTFCP open phases, $$BOCP01, 
$$BOCPO2, F$FSEOCP11, or $$BOCP12. 


Exit: To phase 2 of the open error message 
writer, $$BOMSG2, or to $$#BOMSVA (see 
WSEZAdvanced Functions Diagnosis Reference: 
LIOCS Yolume 2). 


Method: The calling phase supplies the 
following information to the message 
writer: 


e Register 0 contains the last four 
characters in the name of the phase 
requesting the message. On cancel 
messages, register 0 need not be 
initialized. $$BO is assumed for the 
first four characters of the phase name. 


e Register 2 contains the address of the 
DTF table for the current file. 


Common 


o100 gooeoo0o0-003F0013 o000 gooogcdo-coo00000 ooo0 coooc0do0-ooooCc0ca 


POINTER !S gQog0000000 


Response) 


e Register 3 contains the message code (in 
binary) for the message to be printed. 
This code is converted to the last two 
digits of the message number (xx in the 
example 4nxxI). | 


e fIransient region + 1185 contains the 
numeric decimal value assigned to the 
various open/close phases for message 
numbering. (x in the example 4xnnTI.) 


start of the CCB. 


The message writer overlays the first 888 
bytes of the transient region. Any 
information that the calling phase needs to 
save is located beyond that point. 


This phase first saves the last four 
characters in the name of the phase 
requesting the message. It then checks the 
message type. For action type messages, 
$$BOMSVA is fetched in order to transfer 
control to the SVA. For information type 
messages, it initializes the SYSLOG message 
output area with the organization type 
numeric code, DTF filename and symbolic 
unit and constant. It builds the SYSLOG 
CCWs for writing the message and determines 
if the required message is in this phase of 
the message writer. If it is not in this 
phase, the routine determines in which 
overlay phase the message is located 
(either $$BOMSG3, S$F$BOMSG4, SSBOMSGE, 
$$BOMSG7, or $$BOMSG8) and fetches #$$BOMSG2 
to load the required overlay phase. 
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2; Disk Open Error Message 
Charts FK-FL 


riter, 


Objectives: To issue informational error 
message to the operator, and to cancel the 
job if the message indicates end of job. 


e To the DASD open/close organization 
phase requesting the message. 


information to this phase: 


e Register 1 contains the name (last four 
characters) of the message overlay phase 
to be fetched if the required message 
appears in scme phase other than 


$$BOMSG1. 


e Register 3 contains the address of the 
message to be written on SYSLOG. 


This routine determines if the message 
to be written on SYSLOG is in storage. If 
the message is not in storage, the message 
overlay phase containing the required 
message is loaded into storage. The 
message overlay phases consist of $$BOMSG3, 
$S$BOMSG4, S$$BOMSGS, SS$BOMSGE, S$SBOMSGT, 
$$BOMSG8, and $$BOMSG9. These phases 
contain messages only. The message is then 
moved to the SYSLOG output area, and an SVC 
0 is issued to type the message. 


Then, a test determines if the job 
control open switch (in communications 
region) is on. If so, an SVC 11 is issued 
to return to job control. If the switch is 
not on, an SVC 6 is issued and the job is 
canceled. 


Figure 16 shows the message code (passed 
via register 3) together with the last two 
digits and action indicator of the 
associated message number. For reference 
purposes, the text of the message is also 
included. 


BODSMW Data Security Message Writer Char 


(+1 (ta 


$ 
q 


Objective: To issue message 4n99D and read 


the reply from the operator. 


Functions Diagnosis References LIOCS Volume 


2)- | 


Methods: After gathering preliminary data 
about the calling routine, $$BOMSVA is 
fetched to transfer contrel to the SVA. 
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r SSS eee ee eee 
| Message| Message | | 














| Code {Number |Message | 
i as ances == SSG SEER 
{0 , 44a |OVERLAP CN UNEXPRD FILE | 
3 cor haat PACK, MOUNT eer 
\. ar ‘vaul OVERLAPS ANOTHER | 
z a een OVERLAP ON VTOC : 
i er _ MATCHING EXTENT 
3 ere FILE ID IN VTOC | 
|g eek 2 TRACK USER LBL EXTENT 
9 eon freee EXTENT | 
a6 one deeb FILE PROTECT RNG 
ae a6 regime SEQUENCE ERROR 
a 486 ieee HDR LBL IS NOT STD : 
er 565 baaee TRL LBL IS NOT STD : 
ie "088 6 UTLO FILE MARK FOUND 
ioe on aanenis NOT ON SAME ee 
ie ‘8én oe UNIT NOT READY . 
9 One 00 RECORD FOUND 7 
ox vee i RECORD FOUND | 
or a XG RECORD FOUND 7 
125 lo3t 0 RECORD FOUND 
| 26 rane ee RECORD FOUND | 
127 gee a6 RECORD FOUND 
36 robe a RECORD FOUND | 
ae 07 “a6 RECORD FOUND , 
34 69 6 RECORD FOUND : 
Mae 1008 ae LABEL SPACE IN VTOC : 
33 oe Mic FORMAT 1 LABEL FOUND 
on OBE 6 FORMAT 2 LABEL FOUND : 
' 35 ‘Ost ‘we FORMAT 3 LABEL FOUND | 
\ 36 ae ne FORMAT 4 LBL IN VTOC 
| | I i 
u ine aes sn inhi easel i hit i i tet sai lain csiasisin cis eae 
Notes A- and D-type messages are not issued 
by $$BOMSG1 or $$BOMSG 2, but by 
$IJJGMSG from the SVA. 
Figure 16. Message Code for Disk Open 


Error Message Writer 
(Part 1 of 3) 
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|Message|Message| 1 





r 








| Message| Message] | 


| Code | Number {Message | | Code |Number {Message | 
aa a, A aaa a i 2 Se er ee ee 
137 | 06T {NO STANDARD VOL1 LABEL | | 59 }48T ISYSIN/SYSOUT UNSUPPORTED] 
| l | { i | | i 
{38 {411 {EXTENT OVERLAP ON VTOC | | 60 | 701 11ST XTNT CD NOT INDY VOL] 
| | | [ [ | | 
{39 |46I {|DISCONT INDEX EXTENTS { {61 {7112 [EXTENT INFO NEEDED | 
| | | | l | | | 
140 {511 ISYSUNITS NOT IN SEQUENCE] {62 | 721 {MOD AND DTF INCOMPATIBLE] | 
| | | | | | | | 
{41 {521 |DISCONT TYPE 1 EXTENTS | 163 1581 {NO EXTENT FOR OUTPUT | 
| l i | | | | FILE [ 
{42 }54T |DSKXTIN ENTRY TABLE FULL | { | | | 
| 1 | 64 | 881 |EOF ON SYSTEM FILE | 
}43 } 621 INO PRIME DATA EXTENT | | | | | 
| | | | {67 }91I {NO ASCII SUPPORTED | 
(44 {451 {TOO MANY EYTENTS | | | | SUPVR. | 
| i ( | | [ [ | 
(45 {491 {DATA TRACK LIMIT INVALID] | 68 | 981 {OVLAP UNEYPRD SECRD FILE] 
| | | | l i [ I 
1} 46 |59I [INVALID EXTENT | {69 | 691 |FILE IS OPEN FOR ADD | 
{ | | | l [ | j 
147 {60T INO EYTENTS, ALL BYPASSED| | 70 }97I }OVLAP EXPIRED SECRD FILE] 
| | | l | [ ; | 
148 {611 {INVALID DLBL FUNCTION | {71 | 85I J} INVALID FORMAT RECORD | 
| | | | | [ | | 
{49 | 631 {LOAD FILE NOT CLOSED | ,74 | 301 {INVALID HDR1 LABEL | 
| I | l | | | 
150 {80TI {INVALID FILE TYPE | {75 | 331 JEQUAL FILE ID VTOC. | 
| [ | I { | | [ 
}51 {81I |NO LABEL INFORMATION | | 76 | 371 ICHAINING TO SYSTEM UNIT | 
| | i | l | | | 
}52 | 831 {INVALID LOGICAL UNIT | {77 {311 [VOLUME SEQUENCE ERROR | 
I i | | i [ I i 
{53 {901 INO JIBS AVAILABLE | {| 80 | 821 {ISAM NULL FILE | 
| i | I | | | { 
;54 {871 {|SYS FILE EYTENT EXCEEDED | {82 | 741 |BLKSIZE OPEN FAILURE | 
| i | 1 [ i | | 
(55 {351 |DELETED WORKFILE LABEL | {| 83 | 75I {|BLKSZ NOT MULT OF RECSZ | 
| | | | [ [ | I 
{56 | 341 {CURRENT FILE LBL DELETED] {| 85 | 781 {NO LOGIC MODULE ... | 
| [ | l | | | 
{57 {40 {EXTENT OVERLAPS ANOTHER | | 86 | 791 |GETVIS FAILED | 
{ | | | l [ | | 
{58 | | 361 |NO MORE AVAIL/MATCH XTNT| {87 | OST | UNRECOVERABLE I/O ERROR | 
| | | | i | | | 
a cee cence cena ce ee <n coasts ep cP <P SENS pS Ma SDD IED Sqm SERED ED -nenbnsie<oua nt tubceata et anes amameansson tl u see ee abe ane aera rey MA ey SEINE Cs ech tir ID DS i CD SAPD SRS ELAS ND —J 
Figure 16. Message Code for Disk Open Figure 16. Message Code for Disk Open 


Frror Message Writer 
(Part 2 of 3) 


Error Message Writer 
(Part 3 of 3) 
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placed outside the outgoing connector. For 
multiple entries, an asterisk is placed in the 
connector and the locations from which 
control is passed are listed nearby. 
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DESCRIPTION EXAMPLE 
riaictal ad ialtaiaesi A group of program instructions that perform 
* * a processing function of the program. The 
* PROCESS * label, if any, is shown above the block. 
* *B2 * 
* * KEKE & 
RERERKE ERE SE EEKKEEE * ; Tere Bybee 
*B2 * *& BBD4, BCB2 
IE ANY ADDITIONAL EXPLANATION IS * * BLJL 
REQUIRED, ITS LOCATION ON THE CHART * 
1S IDENTIFIED BY AN ASTERISK AND ; 
THE BLOCK IN. e 
- START X 
aL ABELL... BW Description or title of a routine that is detail- SSEKAGEKEREKAERESE 
&—k—-*t—k—k— H—H— ed on another flowchart. The starting label * READ * 
* * of the routine and the flowchart ID appear A RECORD 
of SUBROUTINE Pa above the stripe. a . - 
RHERKEKE ARE EAKEKESE ERARERERERERERERE 
i 
gr tCLee eee An instruction, or group of instructions, that ct “fe SHEKEC 5 TEKEEREE SE 
* * changes portion of a routine or initializes a * *. YES as haececgue ce 
* PREPARATION * routine for a given condition. *. ERROR oKeccccc ce X* * 
* * He ° * ERROR ROUTINE * 
* * *.  g® * * 
EREKTHERHEEK x, .& RRA EERE EEE EEE 
* NO 2 
: x 
. eke 
x * 64 * 
pla aa le ea abe A group of operations not detailed in the See ete * 
* *PREDEFIN ED * * flowcharts in this manual, such as user rou- * PROCESS * isi 
PROCESS # * tines. * THE RECORD * 
* * * * 
* * * * * * 
KEKE KKAKKKKAEKEEES EKKKARAREAEEERE EE 
x 
USEX15 o*. 
SPSCLAE SESE TEES Any function of an input/output device or E4% ae eee 
He program, usually branching to an I/O routine -*” USER *e. YES * * * 
INPUT/OUTPUT - to perform the function stated in the block. *, OPTION re e*ccccccecs ab USER ROUTT NES a 
ee. * a. es 
KEKREEKKERSE EEEEES *, of. PEKKA EERE EE 
* ® 
sXoeesecseceessccescseccess 
Fl o* = Points where the program branches to alter- RECALT o*, 
* x. nate processing, based upon variable con- F F4 we 2 ge oe ne 
o* *. ditions such as program switch settings and e* RECORD *. YES * MNOTFY * 
*, DECISION o® test results. *, AL TEP €D eXecccveee X® ORT NT * 
*. o® e ° *™NSTRUCTIONS * 
*. o* *. .* * * 
ee ot x, .* RERRRERK EES 
* * NO ° 
npn > ° 
* e 
: 64 *. Xe ° 
* @eeeeee ee eeeeaeneeaeeeeooeoeeene@ 
errr x 
RECPRO o% 6 
RHEE LORE EEEEEE The beainni P aie 
* ‘ e beginning or end of a program or routine. -*ALL RECO no Se. NO 
: TERMINAL : *. PROCESSED .¥*ecee 
* e e e 
EREKEKEEEKEREEE *, o* - 
ee o® xX 
* YES eKKEE 
° *BL * 
e * Al* 
. x * 
sf * 
e PRINT 
x 
eer ies On-page connector. An entry from or an exit Pera GPSS RESSER 
* C2 * to another function on the same flowchart. * END-OF-Jo8 * 
bs * The location in the connector identifies the * a 
ore block to which entry on a chart is made. Eee VSee ee Tee 
sap * Off-page connector. An entry from, or exit 
* D4 to, a given point on another flowchart. The 
* is characters in the connector identify the chart 
and block to which or from which control is 
FILINPT passed. The corresponding label, if any, is 
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Chart 01. Open Monitor 


Entry to 
Open Monitor 
$$BOPEN 


1. Called by OPEN macro 
for Disk? 















2. RPS initialization 
necessary ? 


$$BOPENS 
1. Get space in the SVA. 


2. Load the RPS open 
routine. 






. Initialize part of 
transient open table. 








. Calculate and save PUB2 
address for tape devices. 


Call $$BOPEN1 
Chart 02 
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Chart 02. Open Monitor 


Unit Record 


Call 
$$BOURO01 


or 


Call 
$$BOURO01 


| 


i 
$$BOORO1 


5 


* Not documented in VSE/Advanced Functions 


LIOCS Manuals. 


Refer to related publications listed in the Preface. 


Call $$835400 


Call $$BOCPO1 


From Open 
Monitor Chart 01 
$$BOPEN1 







1. More files to open? 


. Determine file type. 


. Set up to fetch proper 
open routine. 









4. DTF device type? 


Tape or 
DASD 


$$BOPLBL, $$BOSFBL, and 
$$BOPEN4 


$$BOPLBL. (if Tape or ISAM) 

1. Relocate label area to 
supervisor if $JOBACCT 
is active or GETVIS area 
for labels. 


S$SBOPEN4 (if ISAM) 

2. Read and check 
DLBL/EXTENT 
information. 


Sequential 
DASD/Direct 
Access DASD 





$$BOSFBL 


1. Locate OPEN/CLOSE 
SVA Phase ($IJJGTOP). 


2. Exit the LTA (SVC11) 
and transfer control to 
$I JJIGTOP. 
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SVC 11 
Return to user 


Telecommunications* 
(BTAM-ES or VSE/VSAM) 


Tape Telecommunications 1. 


Call proper tape Call $$BOTCO1 
open; Chart 03 or $$BOVSAM 


$$BOPEN2 


Process extent limits. 


Call proper tape 
open; Chart 03 





Call $$BOISO1 
Chart 04 
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Chart 03. 


Standard Labeled 
Input Forward 


. Check volume la 


. Check standard 
header 1 label. 


. If present, check 
user labels and exit 


to user routine a 
return. 


$$BOMTO7 


Write updated TLBL 


information in label 
information area. 








Open Magnetic Tape 


Standard Labeled 
Input Backward 








$$BOMTO2 





1. Read standard 
trailer labels as 
header labels. 


bel. 









3. If user labels 
present, exit to 

user routine and 

return. 


nd 






. Post file open. 


SVC 11 Return to 
problem program 


















2. Compare to TLBL. 












Open Tape 
from Chart 02 


No 


Yes 


$$BOPEN2 


1. Relocate label area 
to supervisor if 
$JOBACCT is 
active. 


. Read and check 
DLBL/EXTENT 
information. 













$$BOESTV 


. Retrieve and process 
TES information 
from PUB2 table. 


. Write TES record on 
SYSREC. 


. Entry from 
JOBCTLJ or 
JOBCTLD. 


. Entry from 
$$BCMTO2 


Standard Labeled 
Output 


$$BOMTO03 
f 1. 


Check expiration 





2. Write new header 
label. 


if user labels 
specified set up to 
write them and exit 
to user label routine 
and return. . 


2. Write tapemark. 
. Post file open. 


SVC 2 
$$BOPEN 








$$BOMTOS 






date of header labels.j 


$$BOMT04 . 
1. 


Call JOBCTLJ 
or BUCOPT 


Call $$BOMTO1 
or $$BOMT0S 


Nonstandard 
Labeled and 


Unlabeled 


Input/Output 


. Set track mode. 
2. Test for read 





backward. 


3. Test for rewi 


- tapemark if 
specified. 


nonstandard 
if present. 


. Post file open. 





. Read or write 


. Exit to user routine 
to read or write 


Work Files 


| $$BomT06 =i 


1. Set track mode. 
2. Test for rewind. 


3. Read volume label 
and header. 


4. Check expiration 
date. 

































nd. 

















labels 












* File type determined by Open Monitor. 
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Chart 04 Open ISAM 


Qpen IS 
from Chart 02 
$$BO!S01 


. Get address of DLAB and 
EXTENTs. 


. Compute no. of tracks of 
the independent overflow 
extent. 





$$BOISO2 


If load create file: 

@ Check for dup. ID in 
VTOC. 

@ Check incomming extents 
against all existing files in 
VTOC for overlap. 


If input file: 

@ Read format-1 label for 
file. 

@ Check incomming extents 
against Format-1 extents. 





$$BO01SO5 


1. Save extent limits. 


2. Build DSKXTNT table. 





$$BOISO6 


1. Check labels for input 
files. 


2. Create labels for output 
files. 





$$BO1S07 


. Get format-2 label and 
update DTF table. 


. Put EXTENT card infor- 
mation and constants in 
DTF table. 


. File protect? 


$$BOFLPT 


1. Put extent information in 
JIBs to file protect DASD 
files. 


2. More files to open? 


SVC 11 return to 
problem program 





$$B01S08 


1. Build CCW chain in 


lOAREAL. SVC 2 
| $$BOPEN 


2. Update prime data 
in-storage add section of. 
DTF. 
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Chart 05. Close Monitor 


CLOSE Entry 


> 


$$BCLOSE 














SVC 11 Return to 


1. Relocate label area to 
ys Problem Program 


supervisor if $$JOBACCT 
is active. 


. 5 ? 
. More files to close SVC 2 


$$BCVSAM 


$$BCLOS2 $$BCMRO1 
1. 


1. DTF file type? 


B | other 





. Set up to fetch proper 
close routine. 








Reset open and traffic bit 

in the DTF. 

. VSE/VSAM file? MICR ‘ 

2. Turn off external line 
indicator in PDTABB 


table. 


y 


Unit record — s 
A eset Tile Open 
Paper tape ~~ indicator in DTF. 


2520 or 2540 
punch file? Ha SSBCLOSP 


YES 1. Repunch correctable error 
in last card. 
NO 


- 






















8. Read SYSRES 
label information** 


2. Check last record if output 


7. Paper tape file? file with two ID areas. 


a YES 
2. DTF file type? Go 
CP/DI << TP 





: 
Diskette 


SVC 2 
$$BCTCO1* 
$$BCLOS3 


1. Work file? 


$$BOSFBL 


. Locate $IJJGTOP 
Phase in SVA. 


6. Set dequeue request 
if file protect. 


$$BCHTO6 





7. Read labei information.** 
3. Device type? 


. Call $IJIGTOP to 
complete the CLOSE 


. : DASD Other 
processing. ane <> > 8. 2520 or 2540 


? 
$$BODIO04 $$BCLOS4 punch: . Rewind /unload if 
NO YES specified. 
. Write last block. . ISAM DTF linked <e 
with VSE/VSAM 4. System file? . Reset PUB2 OPEN 
. Process user labels 
or Feed diskette. 


1. If last CCW was a 
write command, 
write tapemark. 





if tape unloaded. : Al 


file? 


2. Input file? 
. Set file status to 
closed. 


<a 
. CDLOAD 
successful? Svc he 
$$BCCPT1 


SVC 2 SVC 11 Return 
$$BOCISC to IIPOPEN 1. Read, format, and 
rewrite format-1 and 


| format-2 labels. 


YES 





NO 
Read TLBL record 
if standard labels. 





Fetch and execute 
TRUNC routine if 










$$BCMTO8 


| $$BCMTOS 















Input files: 
1. Rewind/unload if 
specified. 


. Reset PUB2 OPEN 
bit if tape unloaded. 


| Output files: 

1. Write standard/ 
nonstandard labels if 

specified. 












2. More files to close? 





* Not documented in VSE/Advanced Functions LIOCS 


YES 
** $$BCLLBL is called to GETVIS the label buffer and ae 
NO 


to read the SYSRES label information for DASD files. 


2. Write tapemark. 






3. Set file status to 
close. 


. Set file status to 
close. 












. Rewind/unload if 
specified. 


. Reset PUB2 OPEN 
bit if tape unloaded. 






SVC 11 return to 
problem program 


Charts 7S 
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Chart O0€. EOF/EOV Routine 


EOF/EOV Entry 


$$BCEOV1. 


. Determine type and 
format of the file from 
its DTF table. 


. Read //TLBL card image. 


. Format open table. 


. Calculate and save PUB2 
address. 


. File type? 


System Unit i Output Input Forward Input Backward 







$$BCMT07 


$$BCMT04 


$$BCMTO3 


1. Read header label as a 
trailer label. 










. Close current SYSPCH or 
SYSLST output file by 
writing tapemark. 


1. Close tape reel in process 
by writing trailer label 
and tapemark. 


1. Read and process standard 
trailer labels. 




















2. Process user labels in user 
routine if required. 


2. Process user labels in user 
routine if required. 






2. Process user labels in user 
routine if required. 


. Rewind and unload initial 
tape reel. 







EOV or EOF? 
. Switch to alternate drive 
if specified. 





$$BJCOPT $$BCMT02 SVC 11 Exit to . 
1. Open alternate tape user EOF address 
assigned to SYSPCH or 







1. Get alternate drive if 
assigned. 





SYSLST by reading 
label /tapemark. 


f SVC 11 return to 
problem program 


2. Call appropriate phase to 
open file. 





3. Nonstandard labeled 
input file? 


SVC 2 $$BOPEN 


SVC 2 $$BOMT05 
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Chart 07. Open Diskette, Input 
Diskette Open Input 
from Chart 02 
$$B35401 


1. Get next DLBL extent. 
2. System file open? __ 


. No 
ye Unit exception? 
Yes Yes <a 
. No 


3. Get extent information for 
DTF from DIB. 


4. More files to open? 


= 


Bypass required ? 
No 


r 


Call $$BODMSG 
to print message 


SVC 11 return to 
problem program 
SVC 2 
$$BOPEN 





1. Process VOL1 label. 
2. Secured volume? 


Yes 
> 











1. Process HDR1 label. 


2. Another file to 
open ? 





Call 
$$BODSMO 


Charts 
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Chart 08. Open Diskette, Output 


Diskette 
Open Output 
__from Chart 02 


$$B35400 






$$BODIO1 





1. Control sequence operation. 
2. System file, and open? 


No , 
File open, but no more extents? 
Yes 


: No 
3. Use DIB to complete DTF. > 
4. More files to open? 


oOo 
‘ SVC 11 return to 
problem program 
Call 
$$BOPEN 


Secured volume? 





1. Cause duplicate 


data set? 








Call 
: $$BODSMO 


. Delete duplicate and 
overlapped labels. 





1. Space in VTOC? 


1. Operator communi- 
cation, 


No 


. At least 1 track 
available ? 


Call $$BODMSG 
Yes No . Create and write to print message 
ee ¢<> | new HDR11 label. 


Call $$BOVDMO Call $$BODSPV 
, to dump VTOC to display VTOC 


2. Continue response? 


3. Cancel requested? 





"Call $$BODMSG 
. Determine extent to print message 
limits. 


SVC 11 return to 
problem program 





Call Call 
$$BOPEN | $$BODIO4 
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Chart AA. 


BESS A] 444E SECEE 


* 
*  $S$B8OPEN * 
* * 


HE SSRKERKE SELES 


HMeeooveee 


B81 *. 
* 


-*” RPS  “*. NO ® 
®. INITIALIZED .#e ccc ccc eX# 
*. 7* * 


BREESE] HEKEKEEEK SKE 
* 


* 
* INITIALIZE * 
& Pp * 
* COMMCN AREA * 
s * 


S$$BOPEN: Open Monitor (Part 1 of 2) 


$$ E88 258SE443b4 


$F SS$EE$ SEE SES 


s 
$S$BOPENS Ds 


$4504 $4409040408 08 
x 
o%, 
D1 *. 
e* *. 
#2 yoBeTeD OR zeke 
eo es eeeeoveenasneodeeoeoeoee 
*. SOBRE TLE o% e 
*. o* e@ 
*. o* ° 
*VES ° 
e xX 
xX oe. 
#4004 £14044 400808 E2° “s, 
* * z 
* INITIALIZE * 0% FEOV *. YES 
* CcB * *. CONDITION -®ccece 
* * *. e ° 
* Ps . -* . 
$4O46 $64000440005 . et x 
ni *NO $e we 
e e + * 
° e * AS © 
e ° * s 
: zi $e oe 
: . INET10 
PT erTTi se rt ST tots. F2° °*, 
* * * P 
* GET LUB * o* FROM *. NO 
* AND PUB * =, OPEN etecccceccvnccanesee 
: ADDRESS : *. MACRO ,.#% e 
rrTTitt tt teas tT *. .* ; 
e *YES e 
oe oXeccccacveacee @ 
X e e ; 
$SE O46] FEES 4448 £4 HERG 2ERERER SEED e G3. 8, 
* * € * : o* *, 
* CALCULATE & * GET DTF * e YES MORE OTF*S TO. 
* Pp * * ADDRESS * coeete OPEN o® 
* ADDRESS * * .* e e 
& * * + *. .* 
orTTT TT TT TT Te rT PEK EKEEEE RE RES ES +. ot 
a oXcccccecncesece . 
x e e 
Paes *Eee . : 
* * * * 2 x 
* 54 * * A4 * ° o%e 
+ * * * be H3. &, 
+# ke gauss : * *, 
TAPEOO INET10 e YES o* FROM *, 
eesesd @ CP/ O01 o* 
*. OPEN o®* 
*, .* 
*NO 
x 
rte td 
*AB © 
* El® 
* * 
* 
EXITO7 


INIT 10 o#. 
A& = & 


ey ss, YES 

or” Otte | “te %ES, 
e UNIT e eo 
s. PS e 
t. Fy e 
*NO . 
e @ 
‘i : 
x : 
7 e®e @e 
B44 “s, . 
a e YESX 
s. OTFOU e eeee 
e e e 
*e. 28 x 

a) PoE ot 

*AB *& 

e Ele 

s 
s 

EX 1T07 


RASC SEG AGRO e ee 8 Oe 


D4” “*. 
.¢ *. 
e* OTF TYPE °*. HIGH 
B. x? 208 otecce coves ececceecoe 
e @ e 
"ee oe : 
*LOW = 
S be 
" x 
e oF 
. eS “se. 
x HIGH *°DTF TYPE *s 
#@ee288@022e28 020282 62600080 : xK*2et 
@ e e 
: *. % 
@ v. o* 
e s 
e e 
e e@ 
bd x 
e Sees 
. *AB * 
X * E1s 
a Bat eth < 
* GET LUB AND * EXIT07 
¢ PUB ADDRESS * 
: : 
SRSSESCKIESKSSKESEES 
: 
e 
x 
G4 “e. 
o® . 
+ Lus e. 
*> ASSIGNED TO c#.ce~ 
*. TAPE .# ; 
"ee ot x 
SVES SKKKS 
Z *AB ® 
e * Es 
a * + 
‘ * 
: EX 1T07 
pata a ad 
* GET * 
Ps PUB2 * 
* ADDRESS * 
SREKSESSEESSKSELESE SS 
+bee s 
* 
2 J4 Beee 
SB4¢ e 
TAP E00 x 
ai ata aaa 
* SAVE * 
+ PuB2 * 7 
* ADORESS ¢ 
SVWEKSKSRESSKE SEE SESE 
x 
eESKE 
*AB & 
* Alt 
* 
¥ 
EX IT00 


o* 


Charts 


79 


Licensed Program - Property of IBM 


Chart AB. $$BOPEN: Open Monitor (Part 2 of 2) 
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Chart AF. $$BOPEN1 Monitor, Phase 1 (Part 2 of 6) 
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Chart AG. S$BOPEN1 Monitor, Phase 1 (Part 3 of 6) 
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Chart AI. $$BOPEN1 Monitor, Phase 1 (Part 5 of 6) 


UNLT APE 
SHSRS Al €OSEREDETE 
STEST ASC. AJ*® 

B~$— Hk — Hk — S— HH 
* Test cin * 
; 


Ld 
o# *. YES 
+. INPUT oFecee 
*. 
*. o* 

*. ot 

*NO 
*eee a 
* 8 4 
Pi Fooe 
sf 1s ° 


WKTABE. x 

#F 44 1 68S OESE EE 
$FLPRING AJ*® 
mace a a 

TEST * 
" FILE PROT ECT * 
* RING * 
SES $e SEREEE SEES ES 


3 


x<o 


¥SERSED] HHKKGEKSEKSDE 
SLTTOREG AM* 

Rm $—S—-H—- KK —K 
= *TOAD OREG * 
: FOR OUTPUT : 


S8SESESSESS HESS SE 
es 
es 
bad 
e 
oXcecccseece 
es 


x 
Sor eer 


: ZERO STATUS * 
; BYTE IN CCW : 


6 
Co ee ee ee ro rt oe rr 


* * 
RKEEESEKESERKKEKE SK 
. 
Ld 
X 
KKK 
* * 
* AZ * 
* 


* 
+424 
FTCHREC 


eeeaq 
*AG * 
* Jjle 
zx ¢ 
s 
OUTAPE x 
BEEKEKA2ZERSESKSEEEE 
SFL PRING Je 
Ru H—-H—- F—- F ~$—-$—-$— 4% 
* TEST FOR * 
¢ FILE PROTECT * 
SRKEKKSKSECKKEEKECSE 
7 
ereraeher aus 
*LTIOREG 


*~0—¢-4—4—4—4-4-% 
* LOAD IORE = 
re FOR OUTPU : 


SSEKSRECKEKE KSEE SS 


*4e% . *AH-B3 
* % 5 AH-D3 
*e*e°°3 

aE 


INTAPE xX 
¥ERRKC 244240496444 


SEKKED) 24S 44S4KEE3% 
* * 


* SET UP TO * 
SFETCH $$BOPEN2 ; 


* * 
SSEKEKKKELELEKKESS 


FTCHREC 
SE FS A348EEEESEEEE 


* SET UP _ PHASE * shes 
* NAME TO BE * * * 
* FETCHED BY *Xeeoo* AZ * 
* S$$BOESTV 8 * * * 
42% 


* * 
SESSERSESERSKS KEE KE 


“e 


#005083 4808000000 
SET .Y UP TO 
ssBOEStY 
$45000000 09000008 
tte : 

* 
* * 


eeee 
FICH2 ° 


SSAC 3 SKKEKEKSES 
* FETCH * 
* $$BOPEN2 OR # 
*  $$B0ESTV—_* 

SKEBEESSESEREAKESE 


+ HH Ht % 
HEHEHE 


Charts 


85 


Licensed Program - Property of IBM 


Chart AJ. $$BOPEN1 Monitor, Phase 1 (Part 6 of 6) 
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Chart AL. $$BOPIGN: Open Ignore (Part 1 of 2). 
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Chart AN. $$BOPEN2: Open Monitor, Phase 2°>(Part 1 of 3) 
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Chart AQ. $$BOPEN2: Open Monitor, Phase 2 (Part 3 of 3) 
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$$BOPENR: Relocate DTF Address Constants (Part 1 of 4) 
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Chart AT. $$BOPENR: Relocate DTF Address Constants (Part 2 of 4) 
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Chart AU. S$$BOPENR: Relocate DTF Address Constants (Part 3 of 4) 
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Chart AV. $$BOPENR: Relocate DTF Address 
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Chart AY. $$BENDQB: Enqueue and Dequeue for VSE/VSAM Routines 
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Chart BA. $$BOPNR2: Relocate DTF Address Constants, Phase 2 (Part 1 of 3) 
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Chart BC. $$BCENR2: Relocate DTF Address Constants, Phase 2 (Part 3 of 3) 
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Chart BE. $$BCENR3: 
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Chart BF. $$BOPNR3: Relocate DTF Address Constants, Phase 3 (Part 2 of 2) 
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Chart BG. $$BCLOSE: Close Monitor, Phase 1 (Part 1 of 3) 
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Chart BH. $$BCLOSE: Close Monitor, Phase 1 (Part 2 of 3) 
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Chart BI. $$BCLOSE: Close Monitor, Phase 1 
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Chart BJ. $$BCLLBL: Close Monitor Label Space Processing 
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Chart BK. $$BCLOS2: Close Monitor, Phase 2 (Part 1 of 3) 
e808 
2 A2 @ 
Seen 
@e 
x 
ote a TEST 
A2 e A3 
$604] 04840889 o® €. 7) te SERA 5EESE REESE 
2 * e* OTF FILE ¢. HIGH ot “OTE FI Lg, pegs HIGH * * 
; $$BCLOS2 : te TWEeX" &e grrssessseehte -F TYPE=x*] riage BSooee . START . 
a e 
PrytTict titi. t | e. J we. 2 2 $$0968600460866 
e S. 9% s. o# x e 
; *ZQuat *HIGH eeee ‘ 
eee a ot", ms = Sas « 
@ e se 
@BM #240 © 82 S..5 . . Ps 
* 03% « * ® . 2 04% 
0842 he eeee e x x 
x TAPE e oF, DA o*, o*e 
B88S62 1 $4eenaesss x o *. BS . 
b6 | 5) a 4 meee eue a 6 Low .*°DTF FILE "®. EQUAL * on **e. No ers **e. NO 
* @ e @ e e 
* Gf of B/PUB *FETCH YSefcosa ¢ cocete Pid ons 8 wr8eeweseeeK®e, _ Taditer o*eccee *. DEVICE e*cece 
* AN * * e LAB o® ° *. A 3800 .* ° 
@ HANDLE 3800 +s Seeseesesvesseses ya ** *s o* ¥ *. # Be 
PYicistigesie tts tf s *, <r %. of x Be ot x 
‘ . SsHIGH * e404 * YES sése 
@ ® e a *BM 3 eo 
- ‘ a ‘ * Alt a * J5 * 
‘s m4 . * * ¢ < s ‘ 
@ e e LJ * e *ESE 
x ° x ° REENTRY x 
PAST3800_  .*. CALEP CHE e e%, ° oFe 
act 2 SESS 24448 6b8E88 2 e %. x cS =6&, 
o® *. ¢ NOT *, £6600 40b8b8 E006 * ANY *, 
LOW .* OTF FILE *%. EQUAL * LOAD s HIGH .% OTF FILE e : Vv Bd e* EXTENDED *. NO 
ocete TYPEZX*OL® § FecccecceX# $$BCLOSP * ooeeS, “Wee x*23°¢ ,# *FETCH S$$80DACL * *. BUFFERI e%.ce0 
o s. e sd ad ° ° e * e OTFS o* e 
- o# * * ~ **. ) $8006004¢660860% *. o* a 
x e. .* £SO6SSSEESRSEESESE es e .# %. .*% ° 
$340 *HIGH " * *HIGH *YES e 
*BM s eo e @ @e a @ 
¢ Al* e e e e o e 
2 e @ e e e oe 
REENTRY x e ° x ° ° 
o¥, . @ @ o%, xX 2S 
Ol *, Xx oi 3 *, £ESEEO) 50406 £406 0% mi 
OTF FILE “#. OR LO oO 2 ® ©=©— EQUAL o#°DTF FILE "#. LOW * ISSUE CoLOAD + 
e e W UAL « e s e 
#, TyPEaKekge o*ecce FETCH SefLose * NeoeBe gi vree cess. o Fe cee * FOR F SGANCH x * e 
e. e e » s e o% « *(GET ATX ADDR) * o 
e ) ‘ $$6968608Cb8408 ‘é *e. y 2 * * ie 
Fe o* X x %. 2% x RERSEKESHRERESEREE — sg 
*HIGH setae s400 *HIGH Stee * ~ 
- *BL * ¢BM ¢ pa - e 
e @ Al* * Als e * J2 % ° e 
‘ *¢ e% a é . 
& * * “i One é e 
e UNITRCO REENTRYV. x x e 
x o%. cP31 are go e 
$$$40E19090600602 Ad me ° 
+ NOTE EE OS EQUAL .#° OTF Ie, * we. LOW ar NO *. NO X 
* ter LOSE * oeee%e TWPE=K¢ cMeceesecek®s PUNCH e®ecce *. enema goes 
® PHASE * e oe FI o*® o e 
2s $$OCNRO % e *e. s e e e e*% a 
Peyrresrfiiteiii reg ps —— e. ot x ee * . 
e e *HIGH svES setts *YES e 
e . eo e sBM * = e 
e e e e * Al* e e 
e @ e LJ * * s s 
x x . REENTRY . 2 
o%, FETCH e a Se = a 
Fl : F3 *. X SERSESE 5OESESESEEEE s 
e* OTF 4, wii +26 soa s o# e. SHESE 4$ 9464 E408 #1 JOPR 3432 * S 
LOW .* FILE *. EQUAL * SVC EQUAL .# OTF Fits *, * Svc 2 SF i — Keke toa go k— ¥—*k— HE ° 
eoete TYPE2X*Q8* ote ce ces oXSFETCH $eemro1 : Meaete TYPERZX*33¢°  .*% *FETCH $S$BCLOSP * : CLO SE * ° 
e Ly e s e *. e * * * PROCESSING * ° 
2 %. -*  Geacsbisaseeses s e, o® $4¢ £46604600008 Pd * 6 
x * .# x * -* £E464S66004 6846 2% iA 
Oe *HIGH 940% *NO S 
*BM ¢ ° BM *& EQUAL o ° 
* Als ° & Age ° e o 
% * e % e e oe 
2 e@ * e oe Xececeseccce 
REENTRY x CP32 x x 
oF oF, RSET3800 .*. 
et ¥. 4G 26 0886E8 G3 +. G5 *. 
OTF ve. * o% * OT e* IS *. 
Etec * TURN OFF * o* OTF FILE *. HIGH VES .* OTF ° 
*: ST vPEsX e oes ss xsOPEN INO CATOR * Be TYPE=xX* 3F¢ eFeace eveekes A OTFPR o* 
° * FOR 3886 6 a e e e *. ° 
*e. Pe *, e @ e e o% 
es. .* $ESSCSSSCS4 *, .* x . *. ot 
aN e *HIGH +ee¢ e *NO 
Pp : ‘e * J2 * ps * 
: 640% = $4e% es 
TAPEFILE x * Als xX ° x 
$2066}190488RR088 * hE $9} 39498890888 z SREY $SEEEESE EE 
* INITIALIZE * * * TNE TEALIZE * e * * 
* TQ FETCH * REENTRY * TO FETCH bd e * CLEAR 3800 * 
* TAPE CLOSE * * TSLECOnE * o * INDICATOR * 
* PHASE * * CLO E PHASE # ° * IN OTF * 
* $$BCMT O06 s % $s@cTCcol 2 . * 
$3469030504390444% $6$08$66044400468  RRESERAESEEEKREEEE ED 
. ott ; = = 
° e ° e €ee% 
e Pd J2 Reece e eo x2x * . 
e e eovevaevceekohe oa | 
x +e : x laid ds 
ots. INVAL TP x o%, e eau 
2 aneee qonetceeets J3. & 
EQ. *OTF FILE °® Low = 146 bata re OTE FILE %. HIGH gepee  e 
e 2 ° ° * 
oo eke PA LEE grt tescee ks INVALID FILE * *,. TYPE= FILE, o*%cecee x RETURN * 
TYPE MESSAGE * B, e ° * * 
. . * 48801 * %. o* ‘s RKKGKSERAKE KEK SE 
x Be ot HEKECEREESHRESE SSE ° of x 
644% *HIGH . -  " *EQUAL eee 
* * ° e OR LOW 
* 62 3 Py e e * J2 * 
¢ % e e eo 
$eue ia 2 ; +248 
x FCHMSG e e 
O99SSK 19940000009 x x 
* INITIALIZE * CESK 200SEESEES 960K 34900890404 
* To Fer cH * 5 * SV é * 
‘ TAPE ¢ QSE . SFETCH S$BCLOS3 ¢ FETCH S$S$BCTCOS $ 
2 ssebntos * €6$6SS06604440% 84099900040 9004 
0942999200 40844¢EH8 
x 
#342 
* A2 * 
026% 
Charts 


109 


Licensed Program - Property of IBM 


Chart BL. $$BCLOS2: Close Monitor, Phase 2 (Part 2 of 3) 
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Chart BM. $$BCLOS2: Close Monitor, Phase 2 (Part 3 of 3) 
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Chart BN. $$BCLOS3: Close Monitor, Phase 3 
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Chart BQ. $$BCLRPS: DASD RPS Common Close 
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Chart CA. $$BOSDC1: SD Close Input and Output (Part 1 of 2) 
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Chart CB. $$BOSDC1: SD Close Input and Output (Part 2 of 2) 
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Chart CD. $$BOSDEV: Forced End of Volume for Disk 
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Chart CE. $$BODQUE: Dequeue Extent JIBs 
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Chart EE. 


RHKKKK 1 HERE SEKEKE 
* UP CATE 


BESS A) $494 VERE 


2 * 
b4 $S$BRELSE : 
9909 9E4S03 43984 


Mesesvese 


44908] FHKE SESE EE 


OBTAIN 
ADORESS 
OF COMREG 
08E04 006294 0440 2% 


ehh s 
HOH 


BESBRASE KS 
ESTABLISH #* 

* Sy STEM * 
x U *x 
* TABLE POINTER * 
SHAVRSSKSKLSKAKSRARAE 


*4ee4EC)] 
* 


Meeteon 


PHASE 


D * 
* 


SQDMMN & 
BORA ES SAKES S60: 


#E BREE 


RAK KKR HY] EKER KE 
* LOAD * 
* ESS 
* cB * 
# INTO REGISTER # 
REKBRKEKKEKKKEKKE 


ODD WMKe 0 0 6 6 oe HOON VUGEMe ed ees 


ov 
no 
o 


Ww 


* SYSTEM 
* UNIT TABLE 
: POINTER 


SRESESHKEKLE EHEKSEE 
e 
e 
e 


X 

ea eS 
* * 
* El] *® 
* % 

Sek 


ot OH 


SS$BRELSE: 


*. 
*. YES 


eX acc vseccecocccesece 


*. 
D *. YES 
etaesienaeeKt A 


wMePeoeeeoeoans 


SERSE 2EKERERESE 
* Svc .11 
* RETURN TO 
* PROB PROG 
SESKEKKE SEEEKEE 


GETP UB 


SEKKK JZEKRSKEKRSEKE 
& 
* 


wmys 
ZO! 
. > | 
#200m 
Hogan Ti 


RHKKEKK2ERSRRERERS 
* * 


* 
> 
xz 
nmnz 
eee HMNVND Boce ee eose #HMDND 


* 

* 
> 
Ww 

% 

* 


SESH 


CK JIB 


NE X 


* 
& 
* 
% 
* 
* 
& 
* 
$ 
* 
* 
$ 


83 +, 
* 
o*% + ¢3 
#. UNAS IGNED 
*e, .* 


SSH 2S D3 SKEEEEE EE 
* SAVE * 
* JIB Ps 
* POINTER * 
; IN REGISTER ; 
SREREREERERES SORES 


“7 
TIT xX 

a4 463 40400040K08 
* GET JIB 
; ADORESS 
* 
+ 


ee eo 


SE SREKSESEREKSE SE 


exe eooe 


F3 * 


-* "ae. 
«* STANDARD *. YES 


etecee 


Fo ASSIGNMENT 


*. o* 
* .* 
*NO 


o* 
e* STORED 
*. STANDARD 
*ASSIGNMENT . # 


*, C 


*. 
#. VES 


eX cccccccccccscceene 


*. 
*. YES 


e*cees 


eeeseoeoseoseoeoeeseeeoseeea sees eeeseeeneeseee ees se eneseseseeteneeen KX 


* 
UPDATE 


x 
SVHHEC4SSESESESTES 
* UP DAT * 
* SYSTEM - * 
* UNIT | * 
* * 
* * 
* * 


POINTER 
#HEEEESSESAESEEE 


* ; * 
SRESEREKE RE 
e 


ecoveccscsecarXe 


FREEJIB 


x 
KEKE YEEERERER ER 
* LOAD * 
+ FAVP * 
* ADDRESS INTO * 
. REGISTER 9 bd 
CHREKEREEKSERRERE E 
x 
EREKK  GEKAKESEE EEE 
* SAVE * 
* FAVP * 
* AT * 
. FAVPSAVE 4 
€ SRRERKEEEERERERE 
X 
KEKE GEREREKERES 
* SAVE PUB * 
* AND J1B * 
* POENTER FROM * 
* LUB : 
KREAEARSEAREKRRE ES 
x 
eee 
* AS * 
tc 


Dynamic Device Release Transient (Part 1 


@espeeoeoesoesseovoeevneeevtoeoeveo Mosseonnv00 8808 


of 3) 


eEKS 
NE XTONE 


so ecee ee ee Ks NORESTR 


eee 

EF * 

* Bl* 
x * 
4 


2048 
x * 
* AS ® 
* * 
eee 
e 
; 
steeeaseteeseeees 
* UNA SSIGN * 
* THE * 
: LUB : 
£6EEEEEESES £90402 
e449 = 
* ° 
*EF Beco 
* D2* ° 
x 
seeeeg Sates tess es 
* ET JIB * 
* DORESS x 
*- * 
+. * 
EREEREEERES £484 44 
: 
x 
setseC Sehes eee es 
* SAVE PUB * 
* POINTER IN * 
. JIB od 
FEEREEE SEED EEEE ED 
x 
o*e 
05 *, 
o* *. 
e* ALTERNATE *. NO 
Fo ASSEGNMENT eFeecce 
“#. * : 
*, o* = 
*YES ° 
x 4 
seEREESSHEREEEEEE 
* COMPUTE * ° 
* NEW PUB * e 
: ADDRESS . 5 
#00 eeee0080000088 © * 
; ‘ 
; : 
eeeeaE Seaeneeecen 5 
*OWNERC K EFe e 
#~$-$-6-6-¢-4-6-8 $ 
% RESET * PS 
* OWNER SHIP * e 
FLAGS e 
CEREEEESERE REESE OS 
oe eo 
x a 
steeec Seteseneses : 
* RESTORE a 
* x e 
: POINTER : ° 
Tere rret yet? ae 
xX 
NOALT oX*e 
H5 *. 
@*RE STORE*. 
e* REQUEST *. 
SWITCH o* 
*. ON o® 
*. * 
*, o* 
*YES 
x 
o*e 
J5 ®. 
 @® x. 
e* STORED ®. 
ecoo®e STANDARD o* 
*. ASSIGN- .*® 
*.MENT .* 
*. ot 
*YES 
x 
HEE ERK SERRE EERE RH 
x x 
* RESTORE ¥* 
+3 Lus * 
* x 
* * 
RHEE ER ERE ES 


Charts 


125 


Licensed Program - Property of IBM 


Chart EF. $$BRELSE: Dynamic Device Release Transient (Part 2 of 3) 
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Chart EG. $$BRELSE: Dynamic Device Release Transient (Part 3 of 3) 
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Chart FA. $$BOFLPT: DASD File-Protect (Part 1 of 3) 
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Chart FB. $$BOFLPT: DASD File-Protect (Part 2 of 3) 
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Chart FC. $$BOFLPT: DASD File Protect (Part 3 of 3) 
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Chart FD. $$BODSPV: VTOC Display, Phase 1 
#£3s 
* A2* 
e232 
x 
o%e 
A2 ‘ 
9222 A1S444h2884 eo a, 
* * NO .* VTOC *. 
* $$BoosPV * Sesa®e DE SPL ae 
@ ® : eON SYSLST.® 
09239383 SE F4HSEBE ee Te. Bd 
Ps . “elES 
vTOcDs Py ; eaeepauen k SYSPRINT 
SRSS4 51 oheseeenee = 82° “te, hd #03 eeeenesees 
@e o% e 
* SAVE REGS. #*# ; o# I *. YES * ETLALI —E ¢ 
* TNL AC ize * e. 38s syst et a ees xe FOTERMBITE oS 
* “REGIST RS * Ps *. PRINTER .# * AN we PAGE * 
® TO BE USE * ‘ *. o# * * 
99092040646 0% 4E60E4% eo ko SBRAKSERKAEKESSEESE 
e e@ «a 
LOADONE x sMOVEMSG] —X x 
38660 C] 444005 ESSE s SHKER( PESSRSKEKEKES #28 66C3 SESESEEEEEKE 
* * > oe * *PRINTERL FDe 
* RELOCATE * . * MOVE MES -8-8-4-$-4-4—9-¢ 
* LL CCW * - £ (ages * * SKIP TO * 
# ADDRESSES > * output AREA ss * NEW PAGE ¢ 
KTERSKKEKKKK KS SKK : RVECKKKEKESKRES RSRSE SIETKKKSKKS SKS KEE HE 
. x . x 
eoXecvcccccececeuneceeesecteos SkKSe 
FIRSTMSG  X ; * HE @ 
$2993 D] &64OKSEE4 €t 
*PRINTERI FDO eee 
3—4—$~K~-9—~F—- 4-H 
# PRINT MESSAGE * 
# 4V95A OR * 
* 4V96A * 
SBATKVRISKSEKKKSEKEKESE 
REREAD x 
929496 E] S4SRSEKSEEES 
#READMSG FD* 
FuoH Ho — eee 
s REA 2 
2 OPERATOR * 
* RESPONSE * 
SSKREVWRSE SKK SKSERSES 
x 
TESTEOB o8. ABORTJOB 
ee a: ia a a etal 
YES * INITIALIZE  *& 
*, sBesolfe. END. oPece gene oXt Neer sheas =e 
#.0R CANCEL .* x * TO ABORT * 
wes * = Pertti TT TT iret TTT 
*NO . ‘ 
x . x 
o*, ‘ o*, 
Gl *, e@ ef? he 
e *. e 2S EG 3 4SHKSEEEEE 
* IS *. YES. .8 WAS OPEN. *e. YES * SVC 11 * 
*, JOB TO BE s#.ce. *: FOR JO i ee RETURN TO *& 
ee ABORTED, o* *. CONTROL .* JOB CONTROL * 
*. ot 4S SESEKHKKESEKKKGESE 
e. * *. * 
eNO *NO 
X . 
e%, eo 
Hl. x 
. ~ KRAKKHASKEREREEE 
e* ~=VTOC *. NO C 6 * 
*. DISPLAY <c*ecee * CANCEL * 
*.0N SYSLOG. ; * 
*. o* Ps HERES SESEREE 
*. .* x 
*YES RRKE 
. * A2 & 
eee RaKE 
* ¢ 
* H4 * 
* * 
eae 


$604004480808008 #0048 5000080988 
$$BODSPV $$BOD SPV * 
% MESSAGE * * PRINTER 
* SUBROUTINE SUBROUTINE 
$04694800088086 HOSSSESTEE CESED 

. * 

e e 

e e 

READMSG eX PRINTER]  X 
SteteCantsecorees REECE 54488 2086 4 
x 
* ADDRESS OF © * ADDRESS OF 
; READ CCw Pa : PRINT cCcw : 
OEEEREESEREERERE #4REREE FESS £O00 48 

: : 

EX ous sad wa eeusee es Oeanwes. 

x 
seeenDgneeeeeeess 
* LOAD * 

* ADDRESS * 
: OF CCB : 
££8OEEERSEEE CERES 
X 
ARESEGSRSREREREES 
* Svc O * 
XECUTE 
* CHANNEL * 
PROGRA 
EE OE EEEEEES ER OEE 
Mess aa tak ahs th ae te Te 
x ° 
FS o®, gteeer sabes eeeses 
. *. * 
o* NO ** SVC 7T * * 
*.1/0 COMPLETE, oF eee cee eXt * WALT * * 
*. . * * 
e e * 

. 3% seeneeeeees senses 

*YES 

x 

HEREGGESRREES ES 
* RETURN * 
* TO CALLING * 
* R * 
CHREESERSEEEREE 
shee 
* * 
* He #00. 
* * 
eeee == X 
SAVESYS oe 
H4 *. 
.* *. 
e#” DISPLAY —*. NO 
*. 3540 @egxeeeeeneooee en ee ee 
*, ° ° 
*. o® @ 
*. o* se 

*YES ° 

- : 

x EP x 
seteesqereeceeens seees JSeeen sees 
* SAVE * * AVE SYS * 
* SYSTEM * * YPE FOR + 
: TYPE . ; NEXT PHASE : 
EREEREEERERE RRERE CRERERS OBES REE EE 

X x 

REREK GEESE EERE FRREK 5 4ESREERED 
* SVC 2 + SVC 2 
* $$B800SPO * * FETCH * 
* * *  $$BODSPWH « 
CRORES EEERERED CERES ERTS £EREE 


Charts 


131 


Chart FE. $$BODSPW: VTOC Display, Phase 2 
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Chart FF. $$BODSPW: VTOC Display, Phase 2 
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Chart FG. $$BOVDMP: VTOC Dump (Part 1 of 2) 
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Chart FI. $$BOWDMP: List VTOC 
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Chart FJ. $$BOMSG1: Disk Open Error Message Writer, Phase 1 
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Chart FK. $$BOMSG2: Disk Open Error Message Writer, Phase 2 (Part 1 of 2) 
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Chart FL. $$BOMSG2: Disk Open Error Message Writer, Phase 2 (Part 2 of 2) 
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Chart FM. $$BODSMW: Data Security Message Writer 
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Chart FN. $$BOESTV: Error Statistics by Tape Volume (Part 1 of 2) 
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Chart FO. $$BOESTV: Error Statistics by Tape Volume (Part 2 of 2) 
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Chart GA. $$BODMSG: 
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Chart GB. $$BODMS2: Diskette Open Error Message Writer, Phase 2 (Part 1 of 2) 
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Chart GD. $$BOLSMO: Diskette Data Security Message Writer 
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Chart HG. $$BOPEN4: 3340 DTF Device Type Update Open (Part 1 of 2) 
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Chart JB. $$BOVDMO: Diskette VTOC Dump 
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Chart JC. $$BOWDMO: Diskette List VTOC 


ada. Cota 
* 
4 $$BOwDMO : 
$$9008800008008 
: 
ry? Ye 
bf e 
* BL Beoe 
* .°* 
seen X 
Bl *. £O44R200000008808 
o® , 
e HOR1 *. NO * PRINT DUMP * 
*,. LABEL eX ccccccceX COMPLETED 
ore set * ME S SAGE * 
"es ue mT TTTT TT TT Tit te ety 
*VES e 
: x 
X 2 
$0404(] #408 848088 C2’ °*. 
* CONVERT * o* ° 44SEC 3 HES ESEEE 
* AOCRESS TO * e* ENTERED *. YES * TERMINATE * 
* PRINTABLE * *. FROM OPEN) e¥®cecvccccecc X*® PROGRAM * 
* FCRM * *. PHASE .* * 2 * 
* . : ‘ $09002900440000% 
rerTTrrre TTT TT. *. .* 
é * 
oe e 
X ‘ 
$9940] 80400880908 x 
£0800 20880 80808 
* PRINT HORI * * RETURN * 
LABEL ADDR * TO USER * 
LINE * * * 
$04008004608604 
£0000000400000846 
x 
PeeTesryT TTT Tt T. 
* READ % 
NEXT 
* L ABEL * 
eeTTTTT TTT eT TTT 
x 
0%, 
Fl +. 
o% *, 
o* HOR] *. NO 
e t ABEL o*cace 
*e. a” 
*. ot 
*YES 
: 
TYTTIstti ttt tT tt. 
Pa * 


* FORMAT * 
* HCRI LINE FOR # 
* PRINTING * 


* 
OOHHS KS SEKESESESESE EE 
e 
e 
e 
e 


eeoeeeoaeaeeseeoeeeve17 8 e028 oe 


oXe @eeeeeoeed 


x 
BESS} ] SSE SHSESE EEE 


PRINT LINE 


PES ESSERE SES SE ES 


Charts 151 


ABORT 
ABORTJOB 
ABORTJOB 
ABOVEFE 
ABSOLUTE 
ADD 
ADDRTR 
AGAIN 
ALLDONE 
ALLDONE 
ALLDONE 
ASF PCH 
ASSIGNED 
BEG1 
BEG2 
BELOWFE 
BLANKOUT 
BOPEN1 
BYPASS 
CALLNEXT 
CALLPCHC 
CALLPH2Z2 
CALLSVA 
CCWLOOP 
CCWUPDT 
CDTAPE 
CHKFILE 
CHKF3CNT 
CICANCEL 
CKJIB 
CKUNIT 
CKXTNT 
CK1052 
CLEAROUT 
CNDTF 
CNVDAT 
CNVDAT 
COBOLBL 
COMMON 
COMNEYIT 
COMPARE3 
COMPARE3 
CONSW 
CONTROL 
CONT WU 
CONVERT 
CONVERT 
CONVERT 
CPCLOSE 
CPDEC 
CPDEC1 
CPDEC2 
CPDEC3 
CPTEST 
CPTEST 
CP 31 
CP32 

DA 
DASDTYPE 
DEVINDT 
DIOUT 
DIRECT 
DI RECT1 
DLABERR 
DLABIS 
DLBLIS 


DOIO 
DOIT 
DONTMOVE 
DONTMOVE 
DONTMOVE 
DOUBCCW 
DTFTY PE 
DUMPIT 
ENTINT 
EOJPROC 
ERRCHKS 
ERROR 
EXYCP 
EXIT 
EXIT 
EXITUSER 
EXYITOO 
EYITOO 
EYITO7 
FCHMSG 
FCHMSG 
FEEDCARD 
FEEDOMR 
FETCH 
FETCH 
FETCH2 
FILEOVLP 
FILEOVLP 
FILETYPE 
FINDER 
FIRST MSG 
?7I¥BK 
FLPRING 
FREEJIB 
F TCHR EC 
FTCH2 
GETCUU 
GETCUU 
GETCUU 
GETDS PLY 
GETLAB 
GETNEXT 
GETPUB 
GETUNIT 
GOTOIT 
IGN 

IGN 

IGN1 
IGN2 
IGNTEST 
IGNCHKS 
IJBRPS4O 
ILLEGAL 
INCORE 


‘ INCORE 


INCORE1 
INCTRL 


~INITCNT 


INITD UMP 
INITREG 
INITREG 
INITOO 
INIT10 
INPT3540 
INTAPE 
INVALTP 


Licensed Program - Property of IBM 


152, LIOCS Volume 1, General Information and Imperative Macros 


Licensed Program - Property of IBM 


IOREQOO 
ISDISK 
ISNEXT 
ISOP 
ISRESTRD 
JCTEXIT 
JCTEYIT 
ICTEXIT 
KSET3800 
LABREAD 
LASTU4NE 
LDDTF 
LDDTF 
LDDTF 
LOADONE 
LOADONE 
LOADONE 
LOADPHAS 
LOADPHAS 
LOADREG 
LOADRGS 
LOADWORK 
LOADWORK 
LOAD12 
LOOP 
LOOP 
LTIOREG 
MAGTAPE 
MA GTAPEX 
MAGTAPE1 
MAGTAPE2 
MAGTAPE3 
MAGTAPEY 
MESSG5 
MICRCHCK 
MODCCWLG 
MODEXIT 
MODEYIT 
MODEYIT 
MODLOOP 
MODLOOP 1 
MODLOOP2 
MODRESP 
MORE 
MORE 
MORE 
MORXTNTS 
MOVE 
MOVEMSG 
MOVEMSG 
MOVEMSG1 
MOVENAME 
MOVERCM 
MOVEIT 
MOVLOLIM 
MOV POINT 
MSGROUT 
MSGROUT1 
MSGO5SW 
MUSYMUN 
NCLOS 
NCLOS 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXTADR 
NEXTJIB 
NEX TONE 
NEXTEHAS 
NEY TTEST 


FO 
BO 
AT 
AP 
EF 
FK 
GE 
GD 
BK 
BI 
EP 
AF 
BG 
ED 
FE 
FL 
FG 
FK 
GB 
GA 
FJ 
FJ 
GA 
Fr 
AQ 
GL 
AM 
AU 
AU 
AU 


NEXT 
NEXT 
NEXT2 
NMFETCH 
NOALT 
NODUTYPE 
NOHOLD 
NOP 
NOPEN 
NORESTR 
NOSECUR 
NOTAPE 
NOTCON 
NOTFOUND 
NOTFOUND 
NOTF1 
NOUTMC 
NOVALDT 
NVALTP 
NVALTP 
OCRTEST 
OPENC NAM 
OPEN3 340 
OTHER 
OTHEROWN 
OTPT3540 
OUTAPE 
OUTPTFL 
OWNERCK 
PAST3800 
PHTEST 
PRELIOCS 
PREP 
PRINT 
PRINTER1 
PRINTER1 
PRINTER1 
PRINTM 
PRT/PCH 
PTAPE 
PTAPE1 

P TAPE 2 
PTAPE3 
PTAPEY 
PTAPRDR 
PUNCH 
PUNCHM 
PUNCHM 
PUTTER2 
RDINIT 
READ 
READDISK 
READDISK 
READF 3 
READM 
READMSG 
READMSG 
READONLY 
REDUCE 
REENT RY 
REENTRY 
REENT RY 
REGSVE 
RELADR 
RELATIVE 
RELOADS8 
RELOADS 
RELOC 
RELOC 
RELOCATE 
REREAD 
RESET9 
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RESTORE 
RESTORE 
RETRVE 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURNF3 
RPSEXIT 
RPSTST 
SAVE 
SAVE 
SAVE 
SAVESYS 
SDTEST 
SECDOVLP 
SENSE 
SEQDISK 
SEQLAB 
SEQWRITE 
SETABORT 
SETINTSW 
SETINTSW 
SFREG 
SHIFTMSG 
SH1TFIMSG 
SKIP12 
SKI P16 
SKIP 18 
START 
START 
START 
STARTFRE 
SUMROUT 
SUMROUT 
SVLABAD 
SYREAD 
SYSPRINT 
TAPE 
TAPE 
TAPEFILE 
TAPETYPE 
TAPEOO 
TAPEOO 
TAPE15 
TAPE20 


TAPE35 
TAPE10B 
TAPE10C 
TEST 
TESTA SC 
TESTEOB 
TESTEOB 
TESTEOF 
TESTIR 
TESTMSG 
TESTPD 
TESTPTR 
TESTTAPE 
TEST2 
THERE 
TLBL 
TRKLOOP 
TRUNC 
TSTEN TRY 
TSTENTRY 
TYPEA SW 
TYPEEND 
UNITRCD 
UNITREC 
UNITREC1 
UNLTA PE 
UNPACK 
UNPACK3 
UPDATE 
UPTOA SF 
USEREXIT 
USERE XIT 
VALDT 
VALIDATE 
VLDTLM 
VTFILE 
VTOCDSPY 
VTOCD SPZ 
WKTAPE 
WORKFILE 
WRITE 
WRITECMD 
WRITEMSG 
WRITE MSG 
WRNGPKSW 
WRONG PAK 
YESCHAIN 
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The messages in this list are arranged in sequence by message number. 
The message numbers of all logical IOCS messages start with the digit 4. 
The second digit of the message number indicates the type of file or 
routine issuing the message. The indicators are: 


Punch file 

Magnetic tape file 

ISAM 

Sequential DASD, diskette - open input 
Sequential DASD, diskette - open output 
Sequential DASD, diskette - close 

DAM - input 

DAM - output 

Common open/close routines 

Sequential DASD - work file 

VTOC display routines 


—~@ OOATA UW & WH =| © 
foueuw db bm td au th bean 


The alphabetic character after the message number is eRe action 
indicator. These indicators are: 


Action 

Indicator Meaning 

A - Action The operator must perform a specific manual action 
before the program can continue. For example, mount a 
tape or ready an I/0 device. 

D - Decision The operator must make a choice of alternative courses 


of action. 


I - Information The message does not require immediate operator action. 
For example: This type of message can indicate 
successful completion of a problem progran. 


The number(s) in the volume column refers to the documentation of the 


message issuing routine(s) in the following VSE/Advanced Functions 
Diagnosis Reference manuals: 


1. LIOCS Volume 1: General Information and Imperative Macros, 


For further detailed information on these messages, see VSE/Advanced 
Functions Messages. 
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Ge ee a 
| Message] | | | | 
{Number {Phase {Chart | Volume| Message | 
{--- a =o, ——————— ——————— | 
14110A |{$$BOMTO3 | ED |[{ 2 {NO VOL1 LBL FOUND TLBL=xxxxxx filename SYSxxx=cuu | 
f. {[$$BCCPT3 | RI |{ 2 | 
| eens —————— 4}. Ns a a a ha a a 
f{4111I . |S$S$BOMTO1 | EA | 2. |NO VOL1 LBL FOUND filename SYSxxx=cuu | 
{ {S$$BCCPT4 | RL | 2 | | 
|---—_--4+------- —------ + -—------ -——-—-—--—— —| 
14112A |$$BOMTO1 {| EA | 2 | VOL SERIAL NO. ERROR TLBL=xxxxxx filename SYSxxx=cuu { 
| ($$BOMTO3 | ED | 2 = | | 
{ ($$BOCPT3 | RH | 2 | | 
{ I$$BOCPT4 | RL f{ 2 
{---——-—-—-}-- FF OOOO a | 
14113D |S$S$BOMTO1 | EA |{ 2 |NO HDR1 LBL FOUND filename SYSxxx=cuu | 
14113I |$$BOCPT4G | RM | 2 | | 
|----—--+ -—--- HH — rn | 
14114A |$$BOMTO1 | EB | 2 #£|FILE SEQ NO. ERROR filename SYSxxx=cuu | 
[$$BOCPT4 | RL | 2 = | 
|- ee cee foto en ec ener teen Smee nee iesnaieaeemnemaeemniit ieee mninemeemiiaeetinrmmenaecrmncee | 
14115A |S$$BOMTO1 | EA | 2 [FILE SER. NO. ERROR TLBI=xxxxxx filename SYSxxx=cuu | 
| IS$$BCCPT4 {| RL | 2 | | 
|----- ————— SS Se en enemrenneameenommeamnc ae | 
14116A |SS$BOMTO1 | FA f 2 {VOLUME SEQ. NO. ERROR filename SYSxxx=cuu | 
| [$$BOCPT4 | RL | 2 = | 
|--———— ———— = ee | 
{4117D  |{$$BOMTO2 | EC | 2 {NO TM FOUND ON READBK filename SYSxxx=cuu | 
I$$BOMTOS | EG | 2 = | 
ene ee enna, axe ea CEN ae eco ETRE aE ee eer RTE = eee ne | 
14118D |S$H$BOMTO2 | EC | 2 .|FILE ID ERROR, READBK filename SYSxxx=cuu | 
$4118 | | | | | 
ee Sr rc rennin memento ones 6 
14119A |$S$BOMTO3 | EE | 2 {FILE UNEXPIRED filename SYSxxx=cuu | 
| [S$BOMTO6 | EH | 2 | , I 
{ IS$$BOCPT3 | RH | 2 | | 
SS ——— = SS | 
{4120I |$S$BOMTO3 | EE | 2 {TAPE POSITIONED WRONG filename SYSxxx=cuu | 
|---—— nn parr rrr ern ae ree enereemn en nema meee A RL TL  eeeemceee | 
{4121A |$SBCMTO7 | FH | 2 }NO ALTERN DRIVE ASSGN SYSxxx=cuu | 
SS ee +—-—----|---—----- SS 
14122I |S$BCMTO7 | FH | 2 JEOV ENCOUNTERED SYSxxx=cuu | 
= SS —— a See SS 
14123D |S$S$BOMTOZ2 | EC | 2 {WRONG POSITN, READBK filename SYSxxx=cuu | 
149123I | | | | | 
SS SS ee = 
14124T |S$S$BOMTOS | EF | 2 {TOO MANY UHL'S filename SYSxxx=cuu | 
|---—— == a SS eee a canescens | 
}4125D |S$S$BOMTO5 | EG | 2 }VOL1 LBL FOUND filename SYSxxx=cuu | 
{417125T | | | | 
(SSeS ee == SS ree 
(4126I |$$BCMTO2 | FB | 2 J}EOV ENCOUNTERED filename SYSxxx=cuu | 
CARESS EOE! alam Saree eM nay: ean pate seta ne a eee Set aha co ct aa a a chee cen | 
14127A |$S$BCMTOS | FE | 2 {EOV WHILE WRITING EOF | 
cuapcesenanns Sea re os Sao anicieaaaimaiaciemoesnaia SS 
{4130A |$S$$S$BCMTO1 | FA | 2 {EOF OR EOV INQUIRY filename SYSxxx=cuu | 
|--——_-—_--+-—---—-—- = moat rename | 
[4131D |$S$BCMTO1 | FA | 2 }|BLOCK COUNT ERROR filename SYSxxx=cuu DTF=xxxxxx | 
|. |$$BCMTO03 | FC | 2 | LBL=xxxxxx | 
= SSS aaa a SS men | 
}4132D |S$S$BOMTO1 | EA [| 2 {ERROR IN FILE ID filename SYSxxx=cuu | 
{ [$$BOCPT4 | RL | 2 : 
<= -———---—-+-----+-—— a ras oe | 
(4133D |{S$SBOMTO1 | EB | 2 {ERROR IN HDR LBL filename SYSxxx=cuu | 
| {$$BOCPT4Y | RL | 2 | | 
a a ams eee aeseea eS ae si a nema Sas cis cs cee ic ube is acm icc ei cin am cu’ i ube ts ce eas seamaster as vemos 
Figure 17. Master Error Message List (Part 1 of 8) 
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|Message| | | | 

{Number |Phase |Chart] Volume| Message 

= = ee eee ee pee ee 
14140A- |S$$BCMTO2 | FR |f 2 {NO ALTERN DRIVE ASSGN filename SYSxxx=cuu 
ee SS 
141511 |$$BOMTO1 | EA |[{ 2 {HDR1 LBL INFORMATION filename SYSxxx=cuu 
| {S$S$BOMTOU | EF | 2 | 

evi i einai i es wo en nr me fe nee oss es ny tc see Smee Sls Sas ms eit ans nn sce i omits ua _ 
{14170A |S$$BICOPT | EK { 2 {FILE PROTECTED TAPE filename SYSxxx=cuu 
(== a ee ee mr ee ne ee 
}4171A |S$SBICOP1 | EL |[{ 2 {| UNEYPIRED FILE SYSxxx=cuu 

(== | ———}----—-__-}---------- —— a 
14172A |S$S$BICOP1 {| EL | 2 | INVALID LABEL SET SYSxxx=cuu 

SS ——— OO a 
14183I |$S$BOMTO1 | EA |{ 2 {INVALID LOGICAL UNIT filename SYSxxx=cuu 
| {SSBOMTO2 | EFC | 2 | 

{$$BOMTO3 | ED | 2 | 

1\$$BOMTO6 | EH | 2 | 

{$$BJCOPT | EK | 2 

{S$$BCMTO1 | FA | 2 

| {S$$BCMTOS | FE [| 2 

IS$BCMTO7 | FH | 2 

{--——-——- | --—--—-—— —_-—_ _-__-| -—__- ___-|-—- eee eee ee 
14184D |$S$BOCPT2 | RE |[{ 2 J|NEED FILE PROTECT RNG filename SYSxxx=cuu 
[ (S$$BOCPT2 | RF | 2 

i ($$BOCPT3 | RJ | 2 

| -—--—-—--—+-—-----—----—--—-_}+---——-+ | re 

14185I |S$E$BOMRCE | AC | 2 {INVALID FORMAT RECORD 

[$$BOMRCE | AD |[ 2 

a es a en tr bate ean i in re rn ee tee ee ee ee SNS STN A AA SD DS ASPEN SED A OD aN SD SEMEN 
14000I  |CDMOD ; AL {| 2 | RETRY 

{$$BCLOSP {| SC |} 2 | 

| IS$BCLOSP | SD | 2 | 

{ ISS$BERRTN | PCG | 2 | 

{ -———-——+}--—--—--——-———}+—-———-$ SSS SS 
14n00I |fIJJIGSDVH | 3-93] 4 {NO LABEL SPACE IN VTOC 

| -~-—-—-—-——----—-- 4-4 | 

14400I |{$$BODIO3 | WG | 2 [ 

a a nn nn rn ———— 
{4n01I |fIJJIGSDVH | 3-93| 4 {NO FORMAT 1 LABEL or NO RECORD FOUND 
|-—_—~—-~++ -- +--+ | 

(42011 |S$$BOTSO2 | LC | 3 i 

j }SS$BOISOA | NA | 3 { 

~--—---$----—------ +--+ | 

14301I |$$BOSIOS | VF |{ 2 | 

| -----—---_ —----—--—--_ |---| -—__- -_-_-+| -_-_- 
{4202I |$$BCISCA | NA | 3 {NO RECORD FOUND 

{4n03I |IJJIGDAI1 | 3-66, 4 {NO FORMAT 3 LABEL FOUND 

| JIJJGDAI2 | 3-67] { 

| {IJIGSDI3 | 3-42] | 

i {IJIJGSDI4G | 3-43] j 

| | [IJJGSDW3 | 3-48] | | 

(=== SS SS 
{4n04I |IJIGSDVH | 3-934 4 {NO FORMAT 4 LBL IN VTOC 

14204I |$$BOISO2 | LC | 3 {NO FORMAT 4 LBL IN VTOC or NO RECORD FOUND 
| a nn an rn nn 
(4n05I |SS$BOPFN2 | AQ | 1 | UONRECOVERABLE I/0 ERROR 

| |S$BOPLBL | AK j 1 | 

| {S$BCLLEL | BJ | 1 | 

| IS$$BOSDW1 {| MB | 2 

| [S$BCCPT1 | SB | 2 

| {IJIGDARL | 3-97] 4& | 

ns cae cathe eid as ce cs <n cee mane wp AD ep yD PED SSE bP GPA NE SOT 
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SSS ra ess | 
|Nessage| | | | | 
{Number |Phase |Chart |Volume| Message | 
j oe can cons niomci ioe ares spur cn eta com pee peri aan ee et ne ee ne ee oe ee ence Sore RE wee cemneereemecreeememecnin acon, | 
14n06I |IJJIGSDGC | 3-97 | 4  |NO STANDARD VOL 1 LABEL or NO RECORD FOUND | 
----- —{--------—+----—-4--_-- | 
142061 |$$BOISO2 | LC | 3 | { 
| {$$BCISOA | NA | 3 | | 
|---——- —{---------+------+--———- | 
(4306I |$$BODIO1 |{ VD 1 2 | { 
| -------+-------—-+------+--——- | 
14506I  |{$$BODICH | WT | 2 | | 
|---| | 
148061 |$$BOPEN4 | HH | 1 | | 
|-------+----—-- —+-—-- ———----—----- —-——----—-------— —| 
}4n07I |IJIGSDRL | 3-96 | 4 }NO RECORD FOUND | 
| ---—-------—----}----—_-___—- | 
(43072 |$$B35400 | vec 1 2 | | 
—--——-—4-—--——--- --—-—- | | 
(44071 |$$B3540I | WC b 2.4 i; 
= SS ee ——— — —— | 
14n08D |$$BOKUL1 | 3-11 | 4G {NO UTLO FILE MARK FOUND or NO RECORD FOUND | 
[ IS$BIKUL1 { 3-5 | | | 
( {S$$BOULI1 | 3-5.1] | | 
| {SS$BOULO1 |3-11.1] | | 
a Se | 
14608D |$$BODACL | CO 1 3 | | 
(SS SS ee =n | 
(4n20I |jIJJIGSDSF | 3-23 | 4 |PROC. DATA NOT ACCESSIBLE | 
(SSS Se 2 a a a ee ee | 
{4n31D |JIJIGSDI2 | 3-41 4 4 | VOLUME SEQUENCE ERROR | 
aa ———4- | | 
{4332I |$$BODIO5 | VH | 2 | | 
| ---—---+}--——---—-+--—— — rn 
14n33A |{IJIGDAO3 | 3-62 | 4 JEQUAL FILE IN VTOC | 
{| IgJGSDC4H | 3-30 | | | 
acacia aieacanan cpa nica aaa amt S| { 
{4433A |S$$BODIC2 | WD | 2 | : | 
---—- —}---------4---—--- +} ---------- --- —- + | 
14n34I |IJIGSDO6 | 3-32 | 4 |CURRENT FILE LBL DELETED | 
| IJIGSDW3 | 3-48 | | | 
| -~---~—+--—--—- —— — -_—-—--_-__-_- -__- —- —----- | 
|} 4n 361 {IJIJGSDW3 {| 3-48 | 4 |NO MORE AVAIL/MATCH EXTENT : | 
a SS | 
143371 |S$$B3540I | VA | 2 |CHAINING TO SYSTEM UNIT | 
| I$$BODIC6 | VM | | | 
(Se a aa ef et pe rea | | 
144372 |($$B35400 | WA | 2 | | 
| ISS$BODICT | WL | | | 
|-------+----——- ~——--4------}-------—- —--——----—- ——| 
14n38D |$$BIKUL1 | 3-5 | 4 |USER HDR LBL IS NOT STD | 
|: {S$S$BOULI1 |3-5.1 | | | 
———------—-—---- 4------}-------- _-- | 
14639D  |$$BODACL | CO 1 3 {USER TRL LBL IS NOT STD | 
|-------+--------- —-4------}--—----------- -- --- | 
{4n40A |IIJIGSDCH {| 3-30 | 4 J EXTENT OVERLAY ON ANOTHER | 
|: {IJJGDAO3 | 3-62 | | | ; 
42401 IS$$BOISO2 | LC i 3 JEXTENT OVERLAPS ANOTHER | 
= Sank aaa evcaaeh 2 ee | 
(4n41A |IJIGDAC3 | 3-62 | 4 JEXTENT OVERLAP ON VTOC | 
| | IJJGSDOY | 3-30 | | | 
Se =| | 
j4241I -j$$BOTSO2 | LC {| 3 | i 
(SS a a ee ——| 
i4n42A |fIJIGSDI4 | 3-43 | 4 {NO MATCHING EXTENT ' 
SSS SS eS SS I 
(4243I  FSSBORTVI | NF i 3 {INV EXTENT Hi/LO LISITS i 
L___ ae a ae ee eee proenceae a enn eee en Teer ee Siete 
Figure 17. Master Error Message List (Part 3 of 8) 
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Ge a a ee ee eS Oe ee et tee ee a eee ce ee ge ee So ee eG ee ee Ge one ge ok iene ig en eee 
[Message | | | { | 
{Number | Phase {Chart |Volume|Message : | 
|---—-—--|+- ———————— + -——- So ei eae ec ee et i nt a stein f 
14n44A |IJIGDAC3 | 3-62] 4&4 [OVERLAP ON UNEXPIRED FILE | 
{IJIGSDO4 | 3-30] | 
AIRES REEL SISOS a a ee emnmnimmee f 
{4n45I |JIJIGDACY | 3-58 u [TOO MANY EXTENTS | 
[| IJJGSDSF | 3-23] { | 
{ [IJIGSDXT | 3-34] | 
\-——— | | 
14245T |S$S$BOISO6 | LI {| 3 | | 
| ----——---+------—-_--- +--+ —— | I 
14445I |$$BODIOB | WQ |{ 2 | | 
Sa a ee ——| 
{4246I {S$$BOISO7T | MA | 3 |DISCONT INDEX E¥YTENTS | 
(= << === —— ei 
{4n47A |IJIGSDW1 | 3-46] 4 |EXTENTS NOT ON SAME UNIT 
ees eee! ieee SS Reh a eae cee te aoe ON ee Ba Rc CaN AE OAR OR Se EN oe ae ESE OE ey 
{4n48I |IJIGSDSF | 3-23] 4&4 |SYSIN/SYSOUT UNSUPPORTED | 
-_—————— ———— _———— | | 
14348r  |$$B35400 | VE | 2 | | 
(= 
14249T |$$BOISOS | LG |{ 3 | DATA TRACK LIMIT INVALID | 
|----—-—--—-+----—— = | 
{4n50A |IJIGSDXT | 3-34] 4 INO MORE AVAILABLE EXTENTS . | 
== See eerens af mem | : i 
I4450A {$$BODIO8 | WR | 2 | | 
|---|} -—--__- +} -— 1 —_ ___- 1 - OOO nnn eee | 
(4n51I |IJIGDACXY | 3-58} 4 |SYSUNITS NOT IN SEQUENCE | | 
|-- Semen _——— ne | 
142521 |S$$BOISOS | LE | 3 {DISCONT TYPE 1 EXTENTS |. 
== =———t SS ee ee 
[4n54I |IJIGDART | 3-68] 4 |DSKXTN ENTRY TABLE FULL | 
ats Bret tas | 7 
{4254r |S$$BOISOS | LG | 3 | 
| {SS$BORTV2 | NG | | | 
{| -—-——-——}-—---—— = ee 
14n55A |JIJIGDAVC | 3-59] 4&4 | WRONG PACK, MOUNT nnnnnn 

{ {IJJGSDIP | 3-98] | 

a ee se ce eee ey | 

{43558 |S$$BOSDI1 | LF | 2 | 

i- a | 

14855A |S$$BOPEN4 | HH | 1 | 

a DORR See 3 SS <= 
149856A |$$BOPEN4 | HG |[{ 1 | WRONG MODULE SIZE | 
- —————-—— 4+} —— = ——| 
[4n58I |IJIGDAO1 | 3-60] 4& |NO EXTENT FOR OUTPUT FILE { 
{ {IJIJGSDRL | 3-95] { | 
Se ee i 
}4358I |{$$B35400 | UF | 2 { | 
Se a ae a ae a a ——| 
{4n59A |IJIGSDO2 | 3-29] 4 {INVALID EXTENT | 
JIJIGSDI4 | 3-43] ' | 
\ JIJIJGDACY | 3-58] | | 
\ {IJJGSDC5 | 3-31] | 
| {IJIJGSDLP | 3-98] | | 
|- | | 
{4n59% |IJIGSDRL | 3-95] 4 | | 
———= SS | 
14359I |«S$BODICS | VK | 2 | | 
| {S$$BODIO6 | VL | | | 
— Sasi aU SaLREROREIE Tammmnmarmac | | 
14459% |$$BODIO3 | WG | 2 | I 
SS tl | 
{4859I |S$BOPEN2 | AQ | 1 | | 
Figure 17. Master Error Message List (Part 4 of 8) 
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|Message| | | | | 
|Number |Phase |Chart | Volume] Message | 
mm rem | 
14n60I |IJIGSDC1 | 3-28{ 4 |NO EXTENTS, ALL BYPASSED | 
| J IJIGSDI1 | 3-39] | 
{ {IJJGSDSF | 3-23] | | 
| | TIJIJGSDW1 | 3-46 | | 
| {IJJGDAO1 | 3-60] { | 
{ JIJIJGDAC2 | 3-61] | | 
{IJJGDAOY | 3-63] | 
 eeadianiteegrianc Sern cemcescacaneiaataes =o | | 
14360I |$$B35401 | VB | 2 | | 
rete nns Panne ae capes a a ea See ce es te a a a ee 
(4n61I |IJJIGSDRL | 3-95] 4 {INVALID DLBL FUNCTION { 
| {IJIGDARL | 3-57] { | 
| --———--+}----—-——-- | + | | | 
{4261I |$$BOISO1 | LA | 3 | ] 
[ {|S$S$BORTV1 | ND | | | 
(== == | 
143612 {$$B35400 | UF | 2 | 
-~-—- —----~---}——-——-+-—---— | | 
14861I |$$BOPEN2 | AP |. 1 7 { 
= Ss SS SS —— | 
14262I |$$BOTSO5 | LG | 3 {NO PRIME DATA EXTENT { 
{ 1S$$BORTV1 | ND | | | 
| -—------------ ~--}---——§ —- + —-—--- | 
142631 |{$$BOISO7 | MB |f{ 3 {LOAD FILE NOT CLOSED | 
cn ee maaan neanaemmmcemee | 
143641  |S$S$BODICS | VF | 2 {INVALID HDR1 LABEL | 
| IS$$BODIO6 | VM | | | 
{| --————-—-+—---—-—-——--—-——-}----—-+ a eer mene an mocm | 
{4n66A |IJIGSDI4 | 3-43] 4 {1 TRACK USER LBL EXTENT | 
{ }IJJGSDOC5 | 3-31] | | 
( JIJIJGDAO2 | 3-61 | | 
| -—-—---4 ------------_+---__ | | 
142661%  |$$BOISO5 | LF | 3 | | 
| ---—----------------- + —--- -- —--- -—-- ---- —- -- — | 
14n67I |IJJIGSDO4Y | 3-30] 4 {CVH PROCESSING FAILURE { 
| {IJIJIGSDVH | 3-93] { | 
|IJIJGVDOO | 3-77] | | 
{IJJGVD10 | 3-85] { 
JIJIGDAC2 | 3-62] { { 
( <== SS | 
14n68A |IJIGSDI4G | 3-43] 4 {USER LBLS EXHAUST FIRST EXTENT - | 
| {IJJGSDC5 | 3-31] | { 
| —--—---+------- +——-——| 
14n68D |IJIGDAC2 | 3-61] 4 | | | 
Hees eeaancos: Se SS ee 
14269I |{$S$BOTSO7 | MC | 3 | FILE IS OPEN FOR ADT | 
mf tp a tp a 
14270% |S$$BORTV2 | NG | 3 {1ST XTNT CD NOT INDX VOL | 
a nn rr re err ere een ne a nen en ne nenimemnennineeemenememmimemenane | 
{14271I |$$BOISO1 | LA |{ 3 JEXTENT INFO NEEDED | 
(== - 55 a termina mee | 
{142721 |$$BOISO8 | MD | 3 {MOD AND DTF INCOMPATIBLE | | 
y |---—---+-------—— nn a ae | 
A {4n73D |IJIGDAMY | 3-52| 4&4 {LMOD NOT CURRENT LVL | | 
a a it cs ne Ss de es a es cir eae sai ea a-Si i ti Svmis ii s imch imdil lii mmi iil n i  n iii e sici a osis cnal 


Figure 17. Master Error Message List (Part 5 of 8) 
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rrr ne Ce ee ee ae ee SD ES PAT DID SAD CE eekly PIS PLOT MD REED CRIS LAS AOL LIE: ELD EPIL LT PILES SEED COLETTI D 











| 


iMessage| | | | 

{Number {Phase |Chart] Volume| Message 

(= —_ ee 
14n74I |IIJIGSDBS | 3-374 4 [BLKSIZE OPEN FAILURE 

[IJJGSDW1 | 3-46 | 

| tn rae 
14n75I |IJJIGSDBS | 3-37] 4&4 {BLKSIZE NOT MULT OF RECSIZE 

| {IJIJGSDI2 | 3-41] | 

(SS ee a 
14n76D |{IJJIGSDLP {| 3-98] 4 {VOL SER NOT X¥XXXYX 

{ {IJJGDAVC | 3-59] | 

Sr a i rs ap NL ye nn Sci a een eananene ED aD SAD ES </NEUSHNIDCINEDSRESD OUGINGD- SP sD RMD <ED S ES SND GNANPIND cS NIEED DSESn 
(4n77A |IdJJIGSDYT | 3-344 4 [EXTENT ENTRY ERROR - RETRY 

(SS SS SS SS 
14n79I |S$S$BCFLET | FA | 1 {GETVIS FAILED 

{$$BOPLBL | AK | | 

{ 1$$BCLLEL | Bo f{ 

ISSBOPEN2 | AO | 

[ a ee | 

| [S$BCEOV1 | EM | 2 | 

[$$BCCPT1 | SB | 

i | 

| ([$$BOSVLT | 3-4 | 4 

| {$$BOSFBL | 3-3 | | 

[IJIGMFPA | 3-18} 

{IJJGSDOY | 3-30] 

! {IJIGSDVH | 3-93] i 

{IJIGSDUL |3-100| 

| {IJIGDARL | 3-57] | 

{IJIGDAI2 | 3-67} 

[ {IJIGVDOO | 3-77] { 

| {IJJGVD10 | 3-85] | 

l [IJIGSDFP |3-102] | 

[IJIGMMBF | 3-21] 

{IJIGDAMY | 3-52] 

| iain cei aaa cit Sarda ceca sad oer ere sae eee <a re <a te a SAEED SD SUE NIPDS- SEADS SE VED ER sD PG E-PASS PES SSAA SD i 
[4n80I |$$BOSFEL | 3-3 | 4  |INVALID FILE TYPE 

aR RCRURG Ure RECECR NES SmGhranmeas Cemaaaca 

(4880I {$$BOPEN1 | AH | 1 | 

| |$$BCLOS2 | BK | | 

| Stl 

IS$$BCEOV1 | EM f 2 { 

oe eis Garena ean eeaveunion Kamaied SS SS SS 
{14n81I |IJIGSDRL | 3-95] 4 {NO LABEL INFORMATION 

{IJJGSDMO | 3-22] | 

| | ISIGSDSF {| 3-23] | 

| | IJJGDARL | 3-57] 

SS 

14881I {CLOSE | BP | 1 

| {SS$BCLLEL { BU | { 

{ ($$BOPEN2 | AN | | 

i |$$BOPLEL | AK | | 

| Creare enemas Keciecreanenad | 

{ [S$$BCCPT1 | SA | 2 | 

{ IS$BCFOV1 | EM | { 

($$B35400 | UF | 

aoe cua em acer aemmemalfinamn ava arumenite seem aim me me ee cece ermanrennamnane a: ovens 
{4282I |$$BOISO7 | MA | 3 {ISAM NULL FILE 

ie ces car enems cere cue ern mi mentees ane sneer nS a= SSP RA CN SE GIDEcn <sD-G en 4 angus i Ss is tees > PU si spp spe a ai aha 
Figure 17. Master Error Message List (Part 6 of 8) 
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Soe ee OER OTT BAS TRIE TSE TED ALLTEL BESS LAG ELIS ERIS 











ris ee hae eg ee cerns es ge ey sa eine pe ee ee oe ee ee ee ee ee 
{Message| | | i a | 
{Number |Phase |Chart | Volume| Message 3 ~ ats. . 8 | 
}4n831I lIggGSpGEC {| 3-97] 4G J INVALID LOGICAL UNIT | 
| [| IJJGSDNV | 3-99 | 1 
| {IJJGSDRL | 3-95 | > if 
i JIJJGDACY | 3-58] i | 
|----—— | | 
14383I |$$B3540I | VC | 2 | | 
| fe 
14483I |$$B35400 | WO | 2 | ! 
|----—-— Sua, enemas Reema | | 
14883I |S$$BOPEN4 | HG | 1 | | 
| (| | 
| |$$BOCP01 | QA | 2 | | 
| ISS$BOCP02 | QB | | | 
{ 1$$BOCP11 | QE | | | 
{ |$$BOCP12 | OF | | | 
| {S$$BOURO1 | AB | | 
|----——— Sa ——- ee eee ae a ea 
14884p |SSBOPEN1 | AJ | 1 | NEED FILE PROTECT RNG filename SYSxxx=cuu | 
( |---| 3 | 
| IS$BOCPO2 | QR | 2 | | | 
| {S$S$BOCP11 | QE | | _ | 
[$$BOCP12 | QF | | | 
mn nr er te en ee ae cere ctr mem eee amen | 
14885r |S$$BOPENC | AW | 1 |SYSxxx AND SYSyyy ARE ASSIGNED TO THE SAME PHYSICAL UNIT| 
esse |$S$BOPEN1 | AJ | 1 | TAPE UNIT NOT READY | | | 
fae cain enn eevee cete <a ote Sn nhP errcanuD exsm-mmne cl me, a is as eeu cu a wb sca <a si ein ic see ce e-em Gs cei et Sm ei i i eo mr ce arm ccs is cea es om ch ss ig | 
(48071 ISSBERRIN | PG | 2 [SYS FILE EXTENT EXCEEDED | | 
| <n —— a en ee ere rem nena amennmnanenrmemmmnameemcmmemanan | 
14888t {S$BERRTN | PG | 2 JEOF ON SYSTEM FILE | 
|- --+--——— mn a a re ee er ee nee cree ememmemernmns meematentinttrtmemrenanemrmemnermrerne | 
{4n89I |IJJIGSDSF | 3-23] 4 |WORKFILE NOT SUPPORTED FOR SYSFIL | { 
|----— =< a ene ne ree mene eememnemeennenmeemermemecememet | 
{4n90I |fIJIGSDVH | 3-93] 4 {NO JIBS AVAILABLE | 
| {IJIGVDOO | 3-77] 7 | | 
| |IJIJGSDFP |3-102] | . 

|---—— = | | 
14890I |S$$BCFLET | FB | 1 | : | 
I- = ag ca ll cal I el ea || 
{[4n93I |JIJIGSDRL | 3-96] 4 | UNRECOVERABLE I/O ERROR | 
|----—— ———— = eS | 
14n94I |IIJIGSDCI | 3-944 4 |CISIZE INCORRECT a, | 
\ {IJIGMIOLI | 3-244 . [ 
| oe anne tran fo crete —f——— Se ee ee ene ee | 
{14n95I |IJIGSDRL | 3-96] 4 | (PHASENAME) NOT IN SVA | 
{ {S$$BOSFPL | 3-3 | j | 
| {|IJIGMLIM | 3-19] | | 
| |IJIGDAMY | 3-52] | | 
| ---——-——- +} +--+ A A a rte eet ewan | 
{4n96I |IJJIGSDSF | 3-23| 4 {IMPROPER DTFSD SYSFIL OPEN | 
= cece ete nnn tn no ee St IT LCD A  eeeerceneeeee ff 
14n97I |IJIGDAC3 | 3-62] 4 JOVLAP EXPIRED SECRD FILE | 
comment nn rr rr te reer ene een merece meneame eminememtnereeeneen emer fi 
14n98I |IJIGSDC4Y | 3-30{ 4 |JOVLAP UNEYPRD SECRD FILE | 
| {|IJIJGDAO3 | 3-62] | . ? | 
|--— nn men eer mem erenere mene emer menene ememeeeeemeerrentte Sin ee rte ee ere eaten eremecemmmene | 
14n99D |IJIGSDI2 | 3-41] 4 |DATA SECURED FILE ACCESSED | 
{ {IJJGDAI1 | 3-66 | | : | 
a a ee a 
Figure 17. Master Error Message List (Part 7 of 8) 
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| a! SA CERT CELLS CEILI CGD ELD ALES a Stes 



































eens a pa ee ee eat 
|Message| | | | | 
{Number | Phase |Chart |{Volume|Message t 
(=== = 4------} --- OO eee enna | 
{4MR1I |MRMOD ! BB { 2 | EXTERNAL INTERRUPT I/O ERROR filename SYSxxx | 
| --—----——- -—----——- - +} --- 4 | OOOO nn. 
{S4MR2I {MRMOD 1 BB { 2 {SCU NOT OPERATIONAL filename SYSxxx | 
oan a emer seetnceneeemenenfiv mene armenania eal aaa Tela eA —vememeneeeiaecin eae cea mine ae nee St er emcee mat 
14P01I |SS$BERPTP | PH |{ 2 |DATA CHECK SYSxxx=cuu | ; j 
-----— _—--—— ———-+}-—--—--}----------- —_—--———- OO | 
{4P02D |{$S$BERPTP | PH { 2 |DATA CHECK SYSxxx=cuu , { 
|---—— a +— ae ener coor cee mae eee eens eremeesceeenraremencen | 
{4VO03T |S$S$BODSPW | FF | 1 {NO RECORD FOUND filename SYSxxx : | 
mm a rn rn ee nen rate aeamemenrerememmemcemee ff 
14vVO04l |S$BODSPW | FF | 1 {NO RECORD FOUND filename SYSxxx, or , | 
| ISSBOVDMP | FG | {NO FORMAT 4 LBL IN VTOC filename SYSxxx | 
nap errr rn re ren mieten enna meeememeanaermancimimmmmememmememens f 
{4V06I |S$$BOVDMO | JB | 1 {NO STANDARD VOLUME LABEL filename SYSxxx | 
i ISSBOVDMP | FG | | Y 
{---—-—— [RE ROREARRIERE SEARLES. —<—— ——— —————— ——| 
{4V09I |S$S$BODSPW | FE |. 1 {NO RECORD FOUND filename SYSxxx | 
| {$$BOWDMP | FI {| = | | | 
\-—————— SS 7 SS | 
{4V67I |IIJIGVDOO | 3-834 4 {CVH PROCESSING FAILURE | | 
{ {IJJIGVD10 | 3-90} | | 
|----—— <== SS | 
{4V90I |IJIGVD10 | 3-85| 4&4 {NO JIBS EXIST . { 
{-~—— SS nr er nee neice een maenceneememeemnemananien ten emma anmeraireemmensaic | 
{4V95A |SS$BCDSEV {| FD | 1 {SYSLOG OR SYSLST | 
i {IJJGVD10 | 3-85] 4 | . | 
mma nm nner nmr neces mene meenmemieieienemmees amen cemrem eminem semanas mom f 
{4V96A |SSBODSPV | FD | 1 {SYSLST NOT A PRINTER | j 
j {OJJIGVD10 | 3-85] 4. | . | 
aa cai sc Sa ps cece a cps a cs ast cc id esc Se i ch il we ce a i a ls lee ric iS di ci ct a iis el cia ce etl ant alco bela es ak 
Figure 17. Master Error Message List (Part 8 of 8) 


Notes: A- and D- type messages are not issued by the B-transient message writer. 
respective message writers call $$BOMSVA which in turn transfers control to the 


The 
SVA 


message writers in order to issue the message from the SVA. 
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APPENDI¥ C: ASCII CONVERSION TABLES 


ASCII to EBCDIC Correspondence (0/0 to 3/15) | 





ASCII EBCDIC 


| : Col Row : . 
se te cnn 
puerto | | mS] SS s| pF Co | mS S| Ci‘; 
| CC SOHCSTC CF 0 — st §$ ef]  Hs—e=p =~ —s§-_ ST 
| STXCCCT CC 0 ee ts— “=$eT Hp 3~=—T0s—“_ =P 
eI ana) i ae hee 0000 | 0011 ee es ee ee) es ee 
| CC FOTC ew Cd UC CT 4 Oost (“eT t—C “$$ 3g 7 | OT “=eg i 
PFC ENQU UT Oy 5 C0 et (et 2 OT ee tT 
Po CCACKCU Os fT “=e a $$ Us 2s SE TT “eT 
Pp CBELRC ($RC“‘éCYS CO YT U7 [~~ Qc tt SCE ot 
PS CE ts toon—s§§ sft To $e Yt s—§“§ PT 
PCT CU 00 to §$“ §$ | HDs lt BY 
pC CC tT Ts sf tT “ee ST “sg 
PCT 0p OT ef tH =p 0 
PC C“(C*dC ey eg oC KH)» S00 se | 
PCR eC Cs ee gs HD =>p 
[soo a 0000 ps EE OOD gO 
PC CC 0 et lg  ]Tt 
Pp CEEC“‘CCSY CYT Uo Th oon ss sot “=aeT ty Oo “$$ SSC KHM— $=] 
eo DCL a 000k OOO. 0008 
ae HOC2 4 ee es 0001 0010 Pp iy 2 [  oo7 JT ooo [| | 
Pe = CS fe | 0001 0011 Poa yy 3 [  ooor,,'—s§s dT cot § et 
PCAC ( Cd ls <s$eCSotoos—_-s sf 3 ly Cc flo CC tt—— $e] 
Po TCUNAKCUT Tt 5 CT —§=$_ Eto §$ Se 3) OT TO 
|p CUSYN CE at ys 6 foots sotto sf 3 2 oT “Beg t— “=| 
PTB CCU Ct 7 ot ae 2 T= ST ee 
Pp CUCANCT 8 oot 000 se 8 oT eg 000s | 
PCM C“(isdrC a tts ase to §$“ <a (eg 00 
pC SUB CT ht CU 0S cots/-“_ $s st t—“=et 38 oT I 
PES CU cto eT 2 ot “== Sot 
I es ES ES PR 2 00) I I Co QS OR 00) ©, 
PCOS Cd ts 13 ctnt—s_ s-sp tt “§$ ($s [| st foo eon 
Pp CRS CU Kt aes tt see de os 
PCS oo ee to ep 
PP td 2 ot “ase, SS itK00s—“<=$eT 4 FT Oo ff olmo  SSC0—“=eT CC 
po oto 007 ae Fr top Logical OR 
Ro a ae ee OOO 001 ON I 
PCC 8 oot com ee ot to 
PUG a a ts soto Tt 
Pp CUGts~—“ssSsYSCi Rt et a Cc oo eg se 
Pp CU Kt~<“—s*s—‘—stésC(‘ RT ot et otto ae tot eS 00ss—s-_ | 
ee ee ee ee 7 OO ON 7 OO MOR 
Fe ord ae e a  oe ee f O e OONW ne NOU An De 5 0100 6 op MON 
be) ee 0010 = 001 at ONO 
0010 1010 P55 Tt cf om 6) o— eT 
2 i 0010 1011 [4 ft —€ [ oo, idwuw08 | J 
ne eeeeeeeeees ee” 2 [oo = |. too 6 6 tf BOT otto gt 
poe—CS BT eT a Tg 0000S Hyphen, Minus _ 
TCC 2 OK TTT as Bo 
POY rt—“<‘~SCS? Ct a a Tonto oons—s 
Pp COCsC“(‘(‘“CO;OCSCSC;*dTSC 3 Of OO 00 000 of  0D—_§$ | 
Pp t—“<C~*d:CSC“ KR oT oe  0070——_ 
ee ee OO OI 0010 
Pp CUt~“‘“Cés*dYYSCOC O38 CT Cos— ‘$C OTT §$§ $B TF ly 3 fot 
PCL (i‘im:SC KR or ton ee a  otoons—§-_ 
a ee ae ee 0011 0101 PF yg 5 fT otots§_ §s§ eT 
[ieee eae en (Se Seay Oy ae 0011 0110 [Fy 6 | nT ono yj, J 
a OO OM PO 
8 3 8 | oo | woo jf Fy 8 | "4! 100 #2 | 
eh Seen BE: 9 {| oo Tt oor CT Fy 9 ft CE ts = 
pos t—“‘TS gt Ct tte A ft tot <= 
PO t—“—~drSS dt ot tT eB Et 
Pe ye Aaclll O gee dl oon 1100 ae a ae | ee 
ee ee ee OS OOK ION et ee OV NO nd 


Figure 18. ASCII to EBCDIC Conversion (Part 1 of 2) 
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ASCII to EBCDIC Correspondence (4/0 to 7/15) 


ASCII EBCDIC 3 





) ' 7 
it 1 
Character Col | Row certs Darien Comments 

é Pa | of oot mo | yp cc | om tt 
Pp CUA (id toto Toot s§ sf ec lt ttos—C es lt—§§ | 
ae ee OR a Re +) a ee +) 
6 fp fe NR 
Pp CLCUti“‘“‘i;L 4 4 tO Yt “$e | Sc Fl 4 tse] 00 | 
Pee BM ONO. 00. de 00 001 
a ae ee ee ee a a ee ee a ee ee ee ee | ee eee 
ee On ee ee A ar ONO ON ea 00 Os 
0100 1000 fe Mes fang Or Pen ANOO? ots NOOO ss Pe ie ty ee 
ee een pee el Oe 0100 1001 a 
pC tC‘ CT 4 tT t000——“=“ | tISCs—“ ‘ée] SC 
| 
PoC a tt $s P| — ef 8 “sts | 
110] ___0100 Dee ee rere 
Po CLCUNti“‘“‘‘RRENS 4 CEC A to —aep OC “$e WT Dy 5 110] 0101 Walon cell 
eae <a Oey Se | ee ee a | eae ee) | ee es 
aa a es ee a ee ee a, LS 1 ae ae eee 
fran es Oh mc ee Oe dd 0101 0001 D Be Os 000 ee 
res es ae ee 0101 0010 be De Oe ONG. co ee WOON ee a 
pa ee a RR fe 

T P55 UT U4 TCT §$““#$$ Y—<§$=—«Ss710.0'§, SP s| El} 38 Uf OC TT § 
fee Ue sa ie Oe Op ONO) i  OI0l en Be ee OL ONO ee | 
tei We ea ae ee Olle. COlON mf. ONO. Ee ec Oe IO I IO FSIS oe ee 
0101 oll ee ee 
5 8 0101 1000 Pee Ne le We OT 
}—_—¥ 34-3 + ___1)___,___igg tg] gf i 5 1099 
Ey 9 | iio! oor ft 
og ee 0 ON A A 0100 1010 Pee eee al 
1110 0000 
Po 8 Koto se tO ee 8 tot (Bt Logical NOT 
po CY 8 St Ss Cf tt “eg nderscore 
+} 4 oie 9009 9 ty 4100 __} Grave Accent 
Pcl rrr—Cis tts“ —§-_ ‘Fs to—§-_—s—s | 1 | 1000 | oo f | 
aa eee ae Te ae a ee a | ee) | 
1000 0011 Sa & 
ee eee ee ee | ee ee 1000 0100 eee Se atl 
PC ert—“C~*iS I Tt “$y STS ts§-_ st CU t00s—“§“_ Tt <$| 
Pe OO One oo OO 
Se ee [SA La 1 J 
on NY 8p OO. 1000-8 8 1000 1000 
ee Ne Oe f Pe SOMO = ge. N0OL. P89. | 1000 1001 pe | 

pe Oe ONO SOO ee | OO: SN 000M es 
| k Pp 6 y WE OT “ase SG ($s st 2... — 001. 0010 
ae el ee ee ee on 
Pees ee Oe OK ONION OV Pe ee SOON ee = ONO ie ee 
1001 0101 Rite oe et ol 
a aa Ee (ER |e SR | a a 5 ae ee ee 1001 0110 ae 
Eee Dec ee ee ee a OS ONIN a 0000 I ee NOON OU ge ee 
iets ee ee ON np 2 O00n oO 8 le - OO stops 2 M000 2 2 ee 
-—+——} 44-4 011] 0010 pe ae a MOON. vane ge OOo. Wome — eeca tiene 
ae eae Bee, 3 Ol 0011 Ee aE 
A Sec ONO 2 a MOON i ea eel 
i ee Se ON OION A ke 0 OO 
ee nT Oe OMS ep 00 Aa 8 1010 0101 eas 
ae eee Ee ee ee ee eee Oe ee ee 1010 0110 ———— 
A 7 1010 pol 
ee ee a ee ef lee ON OOK 2s A Be ONO oie OOO ea 
te ee el Tf lO OI lo A oof ot 
oe pheno pee Pe hon CONN se ONT ee 0 1100 0000 eee 
a ae Re AE Ey al | ae a ee 0110 1010 Vertical Line 
bf i ft neh fT 0000 
a eae ee ON OD. AK 

DEL 7 15 0 7_[{| oo [{ om | J 


Figure 18. ASCII to EBCDIC Conversion (Part 2 of 2) 


Appendix C: ASCII Conversion Tables 


165 


Licensed Program - Property of IBM 


EBCDIC to ASCII Correspondence (X'00' to X'82') 











Choracter Bit Col | Row Bit Comments 
: Pattein Pottern 
3 

fe enu— T o fo | com cn ~S | co 1 Oo | 0S! mT Cd 
Pr SOH | o ;y 1 | ooo ! oo f of 1! [| ooo Jf oom fj 
f Se STX.Sr—“‘(CéCYL: COU YY 2 «[~=~=6Q000-~COUFC CC t—C $e OO Cy 2 ~TCSCH—C (tes T—C $E[T —<$s;$Tl—“(trstsCsizY 
PoCETX,CC™C™C“‘<‘LCOCOOCCYCO3T CT pt0—#=_ CF ot ($s | ol 8 Hg ott 
#2 3 2 mn 7 i Oe 
Ma) Bes SE ee rf _-oooo-—“(t—é??!S~~) 0N)~CSCOUT Oh CUP COTS 0—“ =e ONC §$$ CN <§$a—(“‘<##$;$N’R$'W.U’UC)N's#$'’" 
[FF | Oo | Cc | oo , 00 | o 47 12 [| oO J to | | 
f= =ECCRti“‘(‘COT OO Cy OOD UY 0000 1101 fo, 13 | ooo of wo [Ut 
pp so. {| o 'eE | 0000 1110 po fF i4 fT  oomtsi=pEr Ss 00—§_ JJ 
Se ee ee ee ee 0000 M1 fo f 15 | = =—o0oe0 tt 
p——bee_f{ 1 fo {ooo _J__oooo_f 1 _4 9 4 ___o991__}_000 fs 
pC Ch CU lt to ae HTT—=$es 0001 0001 Sees 
SS ee ee eee ee 0001 0010 Ne beset ee a all 
[so pty 3) ff ooot—#$ CSF to §a ae tT 3 0001 0011 | a, 
pS oS et—C<CST:C Cl ltt §s BT tts—C “$$ECSGs— ss sg’ 8 SC] CS 0s— eT ts—C ‘iT 
HH cAN ft Pe) oop) tog ft 8 fg | on fg 
i __._. 9 7 oor, = oot"—§-— ssf] to fo $e CW'S § ss 1001_—=ss oes 
} FSS c¢ J oor t0s— #=ef ot OT 12) Too §$_ §ett00—= 
Pp OGS Cdl tt to soot §-_ = ton 
PCRS CC to et ee tot “sa ‘$e EO eT 
+s} 1 + 0001 Wu Es + s 
eS a ee 0010 0101 po , 1 {| ooo fy wo if  __ 
SESS —aaEE 
pC ESCC“‘CiYS 2G 7 J OOK] sy to ase=>=s to 
EG ___4 2 4 9 0010 1101 fo | 5 | ooo | om if J 

ACK 0010 1110 Po, 6 hf) msi“ Ett | —C“(tsS*zr 
io BEL 0010 Wi <n 
PS USYN, CUT 3 2 Tot |S t—“te]Ts 1 OT } hf to—#$“s Cs]; SS ott'—#$CSs[|— =F s—C(tst—Ciszr 
po CEOT CT 8 UE 7 dl Ca foo a toons— $e | = 
Pp oes CUT 8 Ct toto et oot toons 
Po NAKCUdT 3 ot St 8 ots se Toto sa et 
PUB CT 8 ot tt tt 0001 1010 a 
Po CU A tt <a$e tC “$e 5 CP tt tt 
See ee ee a eee ee ee Ee ee a ee 0010 1110 a eed 
eS 0011 1100 ia 
tL ____ 4 D | oo yy =r {| 2 | 8 | 0010. -{ 1000 eee ee asl 

+ At ef igo 2g fog ror 
Rae areas Er F 0100 1 | 2, 1 | oo1l0. 4, 0001 | logical OR 
ia eee ee ee 0101 0000 ede, AO SOOIO. ee ONO 
a hae eee ee 0101 1010 | 5 Tis [om Ton 
ae ae Re ae a ea ae ee ee ee 0010 [owoCUTt—“‘COCSCis 
aes Ee eee ae eee ee ae eae ee 0010 1010 sae: 
a a 
a aes ee ae: 0101 1110 ioe eae eee eee eee eee eee 
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EBCDIC to ASCII Correspondence (X'83' to X'F9') 
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The number(s) after each entry is the key to the manual(s) in which the information is 
found. The keys correspond to the following manuals. 


1. WSE/Advanced Functions LIOCS Volume 
LY24-5209. : 

2. YSE/Advanced Functions LIOCS Yolume 

3. WSE/Advanced Functions LIOCS Volume 

4. NVSE/Advanced Functions LIOCS Volume 


ACB (access method control block) 1 
access methods 1, 2, 3 
direct 1, 3 
indexed sequential 1, 3 
sequential 1, 2 
telecommunications 1 
virtual 1 
ADD function (ISAM) 3 
add to overflow area 3 
channel program builder 3 
end-of-file add 3 
normal add to prime data area 3 
WAITF macro 3 
WRITE NEWKEY macro 3 
add to the overflow area 3 
adding records to a file 3 
address modification subroutine 1 
ADDRTR function (ISAM) 3 
channel program builder 3 
end-of-file add 3 
ESETL macro 3 
GET macro 3 
overflow area add 3 
prime data area add 3 
PUT macro 3 
READ KEY macro 3 
SETL macro phase 1, $$RBSFTL 3 
SETL macro phase 2, $$BSFTL1 3 
SETL macro phase 3, $$BSETL2 3 
WAITF macro 3 
WRITE KEY macro 3 
WRITE NEWKEY macro 3 


1: 


Ww jd 
ee jee 


I< 
joo 


algorithm to calcualte upper/lower limits 


for FBA devices 4 
alteration factors 3 
alternate switching 2 

EOV, tape 2 
system units, tape 2 
ANSI | 
control codes 2 
tape file label 1 
tape volume label 1 
areas, work 3 
ASCII 
conversion tables 1 
standard volume label 1 
ASCII=YES, DTFCP macro parameter 2 
associated files 2 
asynchronous processing 3 
relative addressing extensions 3 


General Information and Imperative Macros , 


DAM and ISAM , LY24-5211. 


SAM FOR DASD , LY24-5212. 


B-transients (see logical transients) 1, 2 
3,4 
basic telecommunications access method 1 
close monitor 1 
open monitor 1 
block size, logical 4 
BSI (buffer status indicator) 2 
buffer 
(MICR) 2 
status indicator 2 
truncation, 3800 printer 2 
buffering, double 3 
bypass checkpoint records routine, MTMOD 2 
byte, sync 2 


call supervisor (SVC) 1 
capacity record (RO) 3 
card device files 2 
CCW 
chains 3 
work area initialization 4 
CCWs (basic), channel program builder 3 
CDMOD 2 
CWTRL macro 2 
GET macro 2 
PUT macro 2 
chain reading of VTOC labels 4 
channel program builder 3 
descriptor byte 3 
ISMOD ADD 3 
ISMOD ADDRTR 3 
ISMOD, RANDOM RETRVE 3 
ISMOD, SEQNTL RETRVE 3 
strings 3 
channel programs 
with RPS, sequential DASD 2 
without RPS, sequential DASD 2 
CHECK macro 1, 2 | 
MRMOD 2 
MTMOD work file 2 
checkpoint 2 : 
records, bypassing MTMOD 2 
CIDF 4 
CKD : | 
DASD file, contents of 4 
logical units 4 
CLOSE macro 1 
close 1, 3, 4 
DAM, input/output 3 
ISAM 3 
logic 3 
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macro (CVTOC) 44 
CLOSE 
monitor 4 
close 
monitor 
functions 1 
general chart 1 
phases 1 
subroutines 1 
CLOSE 
processing 4 
close 
routines 1, 2 
alternate switching for EOV 2 
alternate switching for system units 
2 
diskette 2 
DTIFCP/DTFLI tape files 2 
DUMODFO 2 
EOF/EOV input forward 2 
ECV output forward 2 
files 1 
IJDPR3 2 
job accounting interface 1 
magnetic tape except work files 2 
MICR 2 
optical reader files 2 
paper tape files 2 
printer files for 3800 2 
punch files 2 
unit record files 2 
work files 2 
sequential DASD 4 
all files 1 
FEOVD specified 1 
free track function 1 
input and output 1 
vtToc 4 
CLOSER macro 1 
CNTRL macro 1, 2 


CDMOD 2 
DAMOD 3 
DAMODV 3 
DRMOD 2 


fixed-length records 2 
MTMOD data file 2 
MTMOD work file 2 


ORMOD 2 
printer files for 3800 2 
PRMOD 2 


undefined records 2 
variable-length records 2 
COBOL, input file closing 2 
COCR 3 ; 
codes, DTF type 1 
combined files (DTFCD) 2 
command control block (CCB) 1 
common LIOCS routines 1 
common VTOC handler (CVH) 
close parameter list (IJJHCPL) 4 
control path 4 | 
functions of 4 
invocation macros 4 
open parameter list (IJJHCPL) 4 
processing functions 4 
processing parameter list (IJJHCPL) 4 
return codes 4 
services of 4 
work area (IJJHCWA) 4 | 
commonly used logical transients 1 
compiler files 11, 2 
characteristics 2 


Appendix Ds: 


_ console files (DTFCN) 


CPMOD macro 2 
DTFCP 2 | 
initialization and termination 2 
logic module (CPMOD) 2 
open monitor 1 
15: <2 
close 2 
DT FCN macro 2. 
GET macro 2 
open monitor 1 
PUT macro 2 
control interval (CTI) 
calculating the number of 4 
definition field (CIDF) 4 
definition of 4 in 
format 4 
logical blocks, limits of 4 
PBN calculation 4 
size, determining 4 
control interval definition field 
control 1, 2 
block, access method (ACB) 1 
cards for DASD labels 1 
cards for tape labels 1 
information 4 
conventions for relative addresses 3 
conversion of relative addresses 3 
converting relative block addresses 
count-key-data (CKD) addressing 4 
cov 4&4 
CPMOD macro 2 
GET 
TOPTR=YES 2 
one I/O area 2 
TRC=YES 2 
two I/O areas 2 
parameters 2 
PUT 
IOPTR=YES 2 
one I/O area 2 
two I/O areas 2 
CPNOTE (DTFCP) 4 
CPOINT (DTFCP) 4 
CPOINTS (DTFCP) 4 
creation of tape volume labels 1 
codes 2 ; 
open output sequential DASD 2 
cross reference list 
label 4 
phase name - CSECT 4 
cross-reference label list 1, 
Cvtoc 4 
format of 4 
cylinder 3 
index 3 
overflow area 3 
overflow control record 3. 


DAM (direct access method) 1, 3 
channel programs 3 
close 3 
device independent DTF extension 
extent information 3 
logic module macros 3 : 
rotational position sensing 3 
DAMOD 3 | 
channel program builder apeoueine 
CNTRL macro 3 
FREE macro 3 
input/foutput macros 3 
macro 3 , * 


4 


1 
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(CIDF) 


3 


u 
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seek overlap subroutine 3 
WAITF macro 3 
DAMODV 3 .; 
channel program builder subroutine 3 
CNTRL macro 3 
FREE macro 3 
IJIGET subroutine 3 
input/output macros 3 
seek overlap subroutine 3 
WAITF macro 3 
DASD file processing 4 
DASD 1, 2, 3 
device independent functional support 4 
DTF dense type update open phase label 
procedures for (LBRET macro) 1 
file protect 1, 3 
files 1 
close routine 1 
open routine 1 
input files 1 | 
label information 3 
label infromation 1 


labels 1 

output 4 

RDS common close data organization, VSAM 
1 


data areas 4 
data files 4 
data security 1, 3 
indicator 3 
message writer 1 
data set format, FBA 4 
‘declarative macros 1 
define the file (DTFxx) 1 
interrelationship of instructions 1 
module generation (xxMOD) 1 
delete label 
open output sequential DASD 2 
sequential DASD open output 3 
dequeue extent JIBs 2 
dequeue for VSAM routines 1 
descriptor byte, DAM channel program 
builder 3 
DEVADDR=, DTFCP macro parameter 2 
device independent DTF extension 1 
device 
independent files 2 
initialization and termination 2 
RPS interface 2 
system files (DI) 2 
release transient $$BRFELSE 1 
DFR macro 2 
diagnostic aids 4 
DIB 4 
DIMOD 2 
GET, one I/O area 2 
GET, two I/O areas 2 
PUT, one I/O area 2 
PUT, two I/O areas 2 
direct access method (DAM) 1, 3. 
channel program builder strings 3 
files 3 
module 3 
DISEN macro 1, 2 
disk information block (DIB) 4 


disk | 
error message writer 1 
phase 1 1 
phase 2 1 


volume ID support 1 
DISK=, CPMOD macro parameter 2 
diskette 
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error message writer 


phase 1 1 

phase 2 1 
file labels 1 
files 


close routine 1 
module save areas 2 
open routine 1 
record format 2 
storage areas 2 
files, close routine 1 
files, open routine 1 
input files 1 
label processing 1 
output files 1 
display VToc 1 
DLBL/EYTENT 
image 4 
processing 4 
DLINT macro 2 
DLIST 
contents of 4 
use of 4 
document information record 2 
DRMOD 2 
CNTRL 2 
READ 2 
SETDEV 2 
WAITF 2 
DSKXTNT table 3 
DSPLY macro 1, 2 
DTCP 2 
close tape files 2 
message writer 2 
open, input tape 2 
open, labeled input 2 
open, output tape 2 
DTF (IJJGDTF) 4 
DTF extension (IJJGDTFX) 4 
initialization 4 
DTF tables 1, 2, 3 
DTFCD 2 
combined 2 
input 2 
output 2 
DTFCN 2 
DTFCP 2 
DISK= omitted 2 
DISK=NO 2 
DISK=YES 2 
DTFDA 
DT FDI 
DTFDR 
DT FDU 
DTFIS 
ADD 3 
ADDRTR 3 
LOAD 3 
RETRVE, RANDOM 3 
RETRVE, SEQNTL 3 
DTFMR 2 
DT FMT 
data files 2 
work files 2 


WNNN W 


DTFOR 2 
DTFPH 2, 3 
DAM 3 


diskette 2 
magnetic tape 2 
sequential disk 2 
DTFPR 2 
DTFPT 2 


170 LIOCS Volume 1, General Information and Imperative Macros 


Licensed Program - Property of IBM 


no shift 1018 2 open 2 

no trans, shift, delete 1017 2 table 2 

no trans, shift, delete 2671 2 DTFMT 1, 2 

shift 1018 2 | data files 2 

trans, no shift or delete 1017 2 message writer 2 

trans, no shift or delete 2671 2 open 2 

trans, shift, delete, fixunb 1017 2 open work files 2 

trans, shift, delete, fixunb 2671 2 tables, data files 2 

trans, shift, delete, undef 1017 2 | tables, work files 2 

trans, shift, delete, undef 2671 2 work file format i 

DTF work files 2 
address constants 1 DTFOR 2 
extensions 3 | close 2 

DTFDA 3 | | open 2. 

DTFIS 3 | optical reader 2 

work area for RPS 3 table 2 
macros 4 DTFPH macro 4 

DTFBG 1 DTFPH 2, 3 

DTFCD 1 diskette 2 

DITFCN 1 macro 2, 3, 4 

DTFCP 1 DAM 3 

DTFDA 1, 3, 4 diskette 2 

DITFDI 1 magnetic tape 2 

DTFDR 1 sequential disk 2 

DTFDU 1 table 2 

DIFEN 1 DTFPR 2 

DIFIS 1, 3 printer files 2 

DITFMR 1 table 2 

DIFMT 1 DTFPT 2 

DTFOR 1 logic module (PTMOD) 2 

DTFPH 1, 3, 4 table 2 

DTFPH, DAM 3 DTFSD 2 

DTFPR 1 Channel programs 2 

DTFPT 1 data files 4 

DTFSD 1, 4 Macro 4 . 

DTFSR 1 macro work filess 2 
structure, general information 1 macro, data files 2 
table initialization, SD open input 2 SYSFIL, limitations of 4 
types 1 tables, data files 2 

used by $$BCLRPS 1 tables, work files 2 

DTFCD 2 work files 4 
DTFCN 2 DTFxx macros 
GET macro 2 DTFCD 2 
PUT macro 2 DTFCN 2 
PUTR macro 2 DTFCP 2 
DTFCP DTFDI 2 
CPNOTE 4 DTFDR 2 
CPOINT 4 DT FDU 2 
CPOINTS 4 DTFMR 2 
error conditions 4 DIFMT 2 
logic module 4 DTFOR 2 
DTFDA DTF Extension 4 DIT FPH (DAM) 3 
DTFDA macro 3 DTFPH (diskette) 2 
DTFDI 2 DTFPH (magnetic tape) 2 
close tape files 2 DTFPH (sequential disk) 2 
message writer 2 DTFPR 2 
open 2 DTFPT 2 
input tape 2 DTFSD 2 
labeled input 2 dump VTOC 
output tape 2 | DASD 1 
table 2 diskette 1 
DTFDR 2 duplicate device assignment 1 

open 2 dynamics device release (RELEASE macro) 1 

table 2 . 
DTFDU 

macro 2 ENDFL macro 1, 3 

table 2 enqueue for VSAM routines 1 
DIFIS macro 3 entry/sequenced data organization 1 
DTFMR 2 LOAD 3 

close 2 EOF add 3 

message writer 2 | EOF/EOV 

MICR 2 monitor 2 
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routines, general chart 1 FEOVD 
EOFADDR=, DTFCP macro parameter 2 macro 1, 2 
EOV processing 4 
and logical spacing routine 2 field 
limits for prime data area 3 information record 2 
ERET macro 1 sequence link 3 
ERREXT 2, 3 file protection 4 
DUMODFI 2 file 1, 2, 3 
DUMODFO 2 additions 3 
option 3 definition macros 1 
parameter list 3 initialization and termination 1 
ERROPT 2 labels 1, 2 
DUMODFI 2 | DASD 1 
DUMODFO 2 diskette 1 
error conditions, DTFCP 4 open output sequential DASD 2 
error/status indicator 3 open work file sequential DASD 2 
error 1, 2, 3 tape 1 
exit routine 2 | files, associated 2 
MTMOD, fixed 2 fixed block architecture, definition of 4 
MTMOD, variable 2 fixed-length record modules 2 
message list, master 1 flowchart 
message writer labels 1, 3 
data security 1 symbols 1, 2, 3 
disk open phase 1 1 forced-end-of-volume 1, 4 
disk open phase 2 1 format-1 label 
diskette open phase 1 1 extents in 4 
diskette open phase 2 1 format 3 label, extent overflow 4 
messages 2 format-3 label 2 
option extension 3 open output sequential DASD 2 
options extension 2 format 1, 2 
recovery, punch 2 DTIFMT work file 1 
ESETL macro 1, 3 record 2 
ADDRTR 3 record relationship 2 
RETRVE, SEQNTL 3 formatting macro 3 
example of the open function 1 FREE macro 1, 2, 3 
explanation of flowchart symbols 1, 2, 3 DAMOD 3 
extended buffering for the 3800 2 ‘DAMODV 3 
CLOSE processing 2 ISMOD, RANDOM RETRVE 3 
CNTRL macro 2 free track function 2 
OPEN processing 2 close sequential DASD 2 
PRTOV macro 2 functions 3 
PUT macro 2 add records to a file 3 
TRC/FCB update 2 load or extend a file 3 
truncation 2 random record retrieval 3 
extending ? sequential record retrieval 3 


a file with ISAM 3 
information to user, DAM 3 
extent generation macros, module 2 


overlap, open output sequential DASD 2 for diskette 2 
to DTF 2 GET logic for the 1017 paper tape reader 2 
open input sequential DASD 2 GET macro 1, 2, 3 
open output sequential DASD 2 CDMOD 2 
open work file sequential DASD 2 CPMOD 2 
extents, console open output sequential 2 ITOPTR=YES 2 
EXTRN symbol linkage 1 one I/O area 2 
7 two I/O areas 2 
, DI MOD 
factor, reconversion 3 one I/O area 2 
FBA two I/O areas 2 
block, definition of 4 DTFCN 2 
control interval 4 | DUMODFI 2 
DAM DTF macre support 4 example 1 
DASD file, ccntents of 4 header labels on tape, user 1 
data set format 4 IS MOD 
message writer parameter list (IJJGMPL) ADDRTR 3 
non-system files 4 SEQNTL RETRVE 3 
SAM DTF macro support 4 MRMOD 2 
SAM OPEN monitor parameter list MTMOD 2 
(IS JGMNP) 4 fixed-length records 2 
system files 4 GET/PUT common routines 2 
FCEPGOUT macro 1 spanned records 2 
FEOV macro 1, 2 undefined records 2 
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variable-length records 2 
ORMOD 
blocked records 2 
unblocked records 2 
PTMOD 2 
no trans 2671 2 
no trans, shift, delete, 1017 2 
trans fixed 2671 2 
trans undefined 2671 2 
trans 1017 2 
GETVCE output parameter list (IJJGGCP) 


handling DASD labels 1 
handling tape labels 1 


I/O area requirements 3 
IfO areas 
add (blocked records) 3 
add (unblocked records) 3 
load 3 
retrieve (blocked records) 3 
retrieve (unblocked records) 3 
ID, reference by (DAM) 3 | 
IDLOC 3 
ignore open sequential DASD 2 
IIPCLOSE 1 
IIPOPEN 1 
imperative 
macro expansions 1 
macros 1 
independent overflow area 3 
index level pointer 3 
indexed sequential access method 
indexes 3 
cylinder 3 
master 3 
track 3 
indicator, error/status 3 
information record 2 
document 2 
field 2 
line 2 
initialization procedures 4 
initialization 
and termination 1, 2, 3 
CF and DI files 2 
DAM 3 
magnetic tape files 2 
MICR files 2 
optical reader files 2 
procedures 3 
sequential DASD files 2 
unit record files 2 
open sequential DASD 2 
input/output areas 4 
input/output 
areas for SD 2 
for diskette 2 
macros 3 
DAMOD 3 
DAMODV 3 | 
interface, job accounting 1 
close monitor 1 
open monitor 1 
IOAREA= 2 
CPMOD macro parameter 2 
DTFCP macro parameter 2 
rocs 1 
IOPTR= 2 
CPMOD macro parameter 2 


DTFCP macro parameter 2 
IOREG=, DTFCP macro parameter 2 


ISAM (indexed sequential access method) 1, 


close 3 
file extension 3 
ISAM DTF device type update open phase 
JIBs 3 
macro instructions 3 
add records to a file 3 
load or extend a DASD file 3 
random retrieval 3 
sequential retrieval 3 
rotational positional sensing 3 
ISMOD macro 3 


job information block (JIB) 4 
job 
accounting interface 1 
close monitor 1 
open monitor 1 
control 1, 2 
cards for DASD labels 1 
cards for tape labels 1 
Magnetic tape open 2 
statements for MT files 2 


key 
referenced by DAM 3 
sequenced data organization 1 


label processing parameter and I/O area 
table (IJJGLPTB) 4 
label 
cross-reference list 4 
information, DASD 3, 4 
list, flowchart 1, 2, 3 
processing | 
user 4 
vToc 4 
labels 2 
DASD 1 
IBM standard volume 1 
job control cards 1 
nonstandard 1 
processing 1 
standard tape, file labels 1 
standard volume 1 
magnetic tape 1 
additional 1 
input file 1 
job control cards 1 
nonstandard 1 
output file 1 
processing 1 
standard file 1 
LBRET macro 1, 4 
length field, sequence 3 
line information record 2 
link field, sequence 3 
linkage, EXTRN 1 
LIOCS interrelationship, example of 1 
list VTOC 1 
LITE macro 1, 2 
MRMOD 2 
load FBA open 4 
LOAD function 3 
ENDFL macro, phase 1 3 
ENDFL macro, phase 2 3 
SETFL macro 3 
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phase 1 3 $$BOCPT1 2 

phase 2 3 $$BOCPT2 2 

phase 3 3 $$BOCPT3 2 

phase 3A 3 $$BOCPT4 2 

phase 4 3 $$BOCP01 2 

WRITE NEWKEY macro 3 $$BOCP02 2 
loading or extending a file 3 $$BOCP03 2 
logic module processing 4 $$BOCP11 2 
logic module/SSR work area (IJGXZWA) 4 $$BOCP12 2 
logic modules, channel program building 4 $$BODACL 3 
logic modules, versions of in SVA 4 $$BODARP 3 
logic modules 2, 3, 4 $$BODARS 3 
CDMOD 2 $$BODAU1 3 
CPMOD 2 $$BODIO1 2 
DAMOD 3 $$BODIO2 2 
DAMODV $$BODIO3 2 
DIMOD 2 $$BODIO4 2 
DTFCN 2 $$BODIO5S 2 
ISMOD 3 $$BODIO6 2 
MRMOD 2 $$BODIO7 2 
MTMOD 2 $$BODIO8 2 
ORMOD 2 $$BODMSG 1 
PRMOD 2 $$BODMS2 1 
PTMOD 2 $S$BODQUE 1 
SAM 4 $$BODSMO 1 
logical block $$BODSMW 1 
CI limits 4 $$BODSPO 1 
defintion of 4 $$BODSPV 1 
size 4 $$BODSPW 1 
logical output files 4 $$BODUCP 2 
logical record, definition of 4 $S$BOESTV. 1 
logical transients 4 $$BOFLPT 1 
logical $$BOISRP 3 
rocs 1 $$BOISO1 3 
common routines 1 $$BOISO2 3 
general information 1 $$BOISO4 3 
special purpose routines 1 $$BOISO5 3 
Spacing and EOV routines 2 $$BOISO6 3 
transients 1, 2, 3, 4 $$BOISO7 3 
$$BCCPTI 2 $$BOISO8 3 
$$BCEOVI 2 $$BOISO9 3 
$$BCISOA 3 $$BOIS10 3 
S$BCLOSE 1 $$BOIS11 3 
$$BCLOSP 2 S$$BOKUL1 4& 
S$BCLOS2 1 $S$BOMRCE 2 
$$BCLOS3 1 $$BOMRO1 2 
$$BCLOS4 1 S$$BOMSG1 1 
S$BCLRPS 1 $$BOMSG2 1 
$$BCMRO1 2 $$BOMTOM 2 
$$BCMTO1 2 S$$BOMTOW 2 
$$BCMTO2 2 $$BOMTO1 2 
SS$BCNTO3 2 $$BOMTO2 2 
$$BCNTO4 2 $$BOMTO3 2 
$$BCNTOS 2 $$BOMTO4U 2 
$$BCNTO6 2 $$BOMTO5 2 
$$BCNTO7 2 $$BOMTO6 2 
$$BCNTO8 2 S$$BOMTO7 2 
$$BENDFF 3 S$$BONVOL 2 
$$BENDFL 3 $$BOORO1 2 
$$BENDQB 1 $$BOPEN 1 
$$BERPTP 2 $S$BOPENC 1 
$$BERRTN 2 $$BOPENR 1 
$$BIKUL1 4 $$BOPENS 1 
$$BINDEX 3 $$BOPEN1 1 
$$BICOPT 2 $$BOPEN2 1 
$$BJCOP1 2 $$BOPEN4 1 
$$BMMR20 2 $$BOPIGN 1 
S$BMSGWR 2 $$BOPLBL 1 
$$BMSGW1 2 S$$BOPNR2 1 
$$BOCPM1 2 S$$BOPNR3 1 
$S$BOCPM2 2 $$BOPR3 1 
$$BOCPRP 2 S$S$BORTV1 3 
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S$$BORTV2 
$$BOSDC1 
$$BOSDC2 
$SBOSDEV 
$$BOSFBL 
$$BOSVLT 
$f$BOUIT1 
$$BOULO1 
$$BOU RO1 
$$BOVDMO 
S$SBOVDMP 
$$BOWDMO 
S$S$BOWDMP 
$$BRELSE 
$S$BSEFTL 
$$BSETFF 
$$BSETFG 
$$BSETFH 
S$SBSETFI 
S$$BSETL 
$$BSETL1 
$EBSETL2 
$$B3540I 
$$B35400 
SSVOPENT 
unit block (LUB) 1 


BANNWWWWWWW Wand wr nrAINE LS ES was ow 


macro 
CDMOD 2 
CHECK 1, 2 
MRMOD 2 
MTMOD 2 
SDMODW 2 
CHKPT 1 
CLOSE 1 
CLOSER 1 
CNTRL 1, 2, 3 
CDMOD 2 
DAMOD 3 
DAMODV 3 
DRMOD 2 
IJDPR3 2 
MTMOD 2 
ORMOD 2 
PRMOD 2 
CPMOD 2 
DAMOD 3 
DAMODV 3 
DFR 2 
DIMOD 2 
DISEN 1, 2 
DLINT 2 
DRMOD 2 
DSPLY 1, 2 
DTFCD 2 
DTFCN 2 
DTFCP 2 
DTFDA 3 
DTFDI 2 
DTFDR 2 
DTFDU 2 
DTFIS 3 
DTFMR 2 
DIFMT 2 
DTFOR 2 


DTFPH, DAM 3 

DTFPH, diskette 2 

DITFPH, magnetic tape 2 
DTFPH, sequential disk 2 
DTFPR 2 

DTFPT 2 


DTFSD 2 

DIFxx 1 

ENDFL 1 

ENDFL LOAD 3 

ERET 1 

ESETL 1 
ADDRTR 3 


SEQNTL RETRVE 3 
expansions, imperative 1 
FEOV 1, 2 
FEOVD 1, 2, 4 
formatting 3 
FREE 1, 2, 3 

DAMOD 3 

DAMODV 3 

RANDOM RETRVE 3 
GET 1, 2, 3 

ADDRTR 3 

CDMOD 

CPMOD 

DIMOD 

DTFCN 

MRMOD 

MTMOD 

ORMOD 

PTMOD 

SEQNTL RETRVE 3 
input/output 

DAMOD 3 

DAMODV 3 
instructions (ISAM) 3 

add records to a file 3 

load or extend a DASD file 3. 

random retrieval 3 

sequential retrieval 3 
ISMOD 3 
LBRET 1 


MN NM NN DH DH NH 


2 


SEQNTL RETRVE 3 
PUTR 1, 
RDLNE 1, 2 


READ 1, 2, 3 


DRMOD 2 
ID DAMOD 3 
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KEY ADDRTR 3 EOV output forward 2 
KEY DAMOD 3 files 1, 2 
KEY RANDOM RETRVE 3 . | close monitor functions 1 
MRMOD 2 . close routine 1 | 
MTMOD 2 message writers 1 
ORMOD 2 open routine 1 
SPNUNB records 3 message writer 2 
VARUNB records 3. | OPEN routines 2 
relationship 1 open 2 
RELEASE 1 I/O nonstandard/unlabeled 2 
RELSE 1, 2 input standard labels, backward 2 
MTMOD 2 : input standard labels, forward 2 
RESCN 1, 2 job control 2 
SEOV 1 output standard labels 2 
SETDEV 1, 2 work files 2 
SETFI 1 open/close subroutines | 2 
LOAD 3 | master 
SETL 1, 3 error message list 1 
ADDRTR 3 index, ISAM 3 
SEQNTL RETRVE 3 | message writer interface table (IJJGIFT) 4 
TRUNC 1, 2 message-module relationship 4 
MTMOD 2 | | message 
WAITF 1, 2, 3 code for disk open error 1 
DAMOD 3 cross-reference list 1, 2, 3, 4 
DAMODV 3 | writer 1 
DRMOD 2 writers 1, 2 
ISMOD ADD 3 data security 1 
ISMOD ADDRTR 3 disk open phase 1 _ 1 
ISMOD RANIOM RETRVE 3 disk open phase 2 1 
MRMOD 2 diskette data security 1 
ORMOD 2 a diskette open phase 1 1 
WRITE 1, 2, 3 diskette open phase 2 1 
AFTER DAMOD 3 DTFCP/DTFDI 2 
AFTER SPNUNB records 3 magnetic tape 2 
AFTER VARUNB records 3 MICR 2 
ID DAMOD 3 messages 1 
KEY DAMOD 3 $$ BOMSG1 1 
KEY ISMOD ADDRTR 3 $$BOMSG2 1 
KEY ISMOD RANDOM RETRVE 3. Master error list 1 
MTMOD 2 method of processing 1 
NEWKEY ISMOD ADD 3 MFCM 1, 2 
NEWKEY ISMOD ADDRTR 3 MFCU. 1 
NEWKEY ISMOD LOAD 3 MICR 1 
RZERO DAMOD 3 buffer 2 
RZERO SPNUNB records 3 close 2 
RZERO VARUNB records 3 DT FMR macro 2 
SPNUNB records 3 error messages 2 
VARUNB records 3 files 2 
macros 1 initialization and termination 2 
declarative 1 logic module (MRMOD) 2 
imperative 1 message writer 2 
module generation 1 MRMOD macro 2 
magnetic ink character recognition (MICR) open 2 
files 1, 2 pocket light indicators 2 
magnetic tape 2 MODLOOP 1 7 
alternate switching for FOV 2 address modification subroutine 1 
alternate switching for system units 2 ‘subroutines for open 1 
block/deblock subroutine 2 modular 
close 2 generation macros (xxMOD) 1, 2 
all files except work 2 tabular system 1 
alternate switching for EOV 2 module control flow 4 
alternate switching for system units module generation macros 4 
American national standard COBOL module-data area relationship 4 
input files 2 modules 1, 2, 3 
EOF backward 2 direct access method 3 
FOF/EOV input forward 2 fixed-length records 2 
ECV output forward 2 reenterable 1, 3 
routines 2 undefined records 2 
work files 2 variable-length records 2 
EOF backward 2 work file 2 | 
EOF/EOV input forward 2 MRMOD 2 
EOF/FOV routines 2 | CHECK macro 2 
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DISEN macro 2 OPEN 

GET macro 2 flags field (IJJGOPN) 4 

LITE macro 2 open 

READ macro 2 function, example 1 

WAITF macro 2 ignore (S$$BOPIGN) 1 

MTMOD 2 IJDPR3 2 

bypass checkpoint record routine 2 OPEN 

CHECK work files 2 | input sequential DASD 4 

CNTRL data files 2 open 

CNTRI work files 2 ISAM RETRVE phase 1 3 

deblocking subroutine 2 ISAM RETRVE phase 2 3 

EOV subroutine 2 ISAM 1, 3 

error exit routine 2 | general chart 1 

FEOV 2 7 | phase 1 3 

GET 2 phase 10 3 

GET spanned records 2 . phase 2 3 

GET/PUT commen routines 2 © phase 4 3 

logical spacing routine 2 phase 5 3 

NOTE work files 2 phase 6 3 

POINTR work files 2 phase 7 3 

POINTS. work files 2 phase 7A 3 

POINTW work files 2 : | phase 8 3 

PUT 2 phase 9 3 

PUT spanned records 2 RPS phase 3 

read/write subroutines, fixed-length job control, magnetic tape 2 
records 2 logic DAM, general chart 3 

read/write subroutines, undefined | logic ISAM, general chart 3 
records 2 OPEN 

read/write subroutines, variable-length macro 1 
records 2 | open 

multiple track search 3 magnetic tape files 2 


magnetic tape 1, 2 
| general chart 1 | 
non-SYSFIL input standard label, backward 2 


logic modules 4 input standard label, forward 2 
logical units 4 output standard label 2 
non-system files 4 monitor 1 
nonstandard tape labels 1 | $$BOPEN1 phase 1 
normal add to prime data area 3 $$BOPEN2 phase 2 
NOTE macro 1, 2 | card device files 1 
NOTE compiler files 1 © 
MTMOD work files 2 console files 1 


DAM files 1 
example 1 


OMR/RCE format open routines 2 general chart 1 
open VTOC (OVTOC) macro 4 ISAM files 1 
OPEN/CLCSE and problem pECgEs save area job accounting interface 1 
(IJJGSVEA) 4 | magnetic tape files 1 
OPEN/CLOSE general modules/routines MICR files 1 
B-transients 4 optical reader files 1 
control path flow 4 phases 1 
functional flow 4 routines 1 
message writer modules/routine 4 sample OPEN DTFMT macro instruction 1 
monitor, functicns of 4 self-relocating programs (OPENR) 1 
open/close logic 2, 3 7 telecommunications files 1 
DAM 3 | unit record files 1 
ISAM 3 OMR/RCE routines 2 
OPEN/CLOSE sequential DASD files 4 optical reader files 2 
OPEN/CLOSE transient SVA PLIST (IJJGOCTS) 4 OPEN | | 
OPEN/CLCSE/FEOVD processing 4 . out put sequential DASD 4 
open 1, 2, 3 open 
console files 2 a printer files 2 
DAM 1, 3 mS printer files for 3800 2 
general chart 1 extended buffering 2 
user labels 3 preliminary processing 2 
device independent files 2 | punch files 2 
device independent files, RPS interface reader files 2. 
diskette files 2 | routines 1 
DITFCP/DTFDI 2 sequential DASD 1 
input tape 2 dequeue extent JIBs 1 
labeled input file 2 OPEN 
output tape 2 : ; storage management 4 
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work file sequential DASD 4 | PRTOV macro 2 
open PUT macro 2 
unit record files 2 process VTOC (PVTOC) macro 4 
work files 2 processing 
OPENC macro duplicate device assignment 1 asynchronous 3 
OPENing sequential DASD files 4 : methods 1 
opening the VTOC 4 program organization 4 
OPENR macro DTF address constants 1 protect DASD files 1 
optical reader (CR and DR) files 1, 2 | PRTOV macro 1, 2 
close monitor 1 ! IJDPR3 2 
DRMOD macro 2 PTMOD 2 
DTFDR macro 2 | GET macro 2 
DTFOR macro 2. PUT macro 2 
initialization/termination 2 | punch/feed/read (PFR) files 2 
logic module (DRMOD) 2 punch 2 
logic module (ORMOD) 2 error recovery 2 
open routine 1 | file close 2 
organization, VSAM data 1 file open 2 
ORMOD macro 2 PUT logic for the 1018 paper tape punch 2 
ORMOD 2 PUT macro 1, 2, 3 
CNTRL macro 2 CPMOD 
DSPLY macro 2 ITOPTR=YES 2 
GET macro blocked records 2 one I/O area 2 
GET macro unblocked records 2 | two I/O areas 2 
RDLNE macro 2 DIMOD one I/O area 2 
READ macro 2 DIMOD two I/O areas 2 
RESCN macro 2 DTFCN 2 
WAITF macro 2 DUMODFI 2 
output, DASD 4 DUMODFO 2 
overflow area 3 IJDPR3 2 
cylinder 3 ISMOD ADDRTR 3 
ISMOD ADD 3 ISMOD SEQNTL RETRVE 3 
upper limits 3 | MTMOD 2 
overlap, check for (COV) 4 MTMOD spanned records 2 
OVTOC, format of 4 PRMOD 2 


PRMOD with STL 2 
PTMOD no shift 1018 2 


PAGEIN macro 1 PTMOD shift 1018 2 

paper tape 1, 2 PUTR macro 1, 2 
files, close monitor 1 | PvVTOC, format of 4 
punch error recovery 2 : PWAIT 

parameter list, ERREXT 3 | IJGXSDF 4 

PDTABB, MICR 2 IJGYSDSF 4 


PFR (punch/feed/read) files. 2 IJGXSDV 4 
phase-name - CSECT cross-reference list 4 , 
physical block numbers (PBN) 4 


physical IocS 2 RCE open routines 2 
magnetic tape (DTFPH) 2 | RDF/CIDF reference overlay (IJGXYZRDF) 4 
sequential dasd (DIFPH) 2 RDLNE macro 1, 2 
PIOCS/LIOCS interrelationship 1 RDONLY 3 
pointer RDONLY= 2 
DTFPR macro 2 CPMOD macro parameter 2 
DTFPR table 2 DTFCP macro parameter 2. 
extended buffering for 3800 2 read cylinder index into storage 3 
files 2 read format 3 label (IJJGVD10) 4 
logic module 2 READ macro 1, 2, 3 
open 2 | DRMOD 2 
PRMOD macro 2 ID DAMOD 3 
STL (selective tape lister) 2 KEY DAMOD 3 
POINTR macro 1, 2 — | KEY ISMOD ADDRTR 3 
MTMOD work files 2 KEY ISMOD RANDOM RETRVE 3 
POINTS macro 1, 2 MRMOD 2 
MTMOD work files 2 MTMOD work file 2 
POINTW macro 1, 2 ORMOD 2 
MTMOD work files 2 SPNUNB records 3 
prime data area EOV limits 3 VARUNB records 3 
printer files 1, 2 READ work files 2 
close monitor 1 read/write subroutines 2 
open monitor. 1 | fixed-length records 2 
printer 2 undefined records 2 | 
PRMOD 2 variable length records 2 
CNTRIL macro 2 reader file open 2 
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reading VTOC labels 4 
reconversion factor 3 
record definition field (RDF) 4 
record 1, 2, 3 
document information 2 
field information 2 
format 2 
ID returned (IDLOC) 3 
line information 2 
relationship of format 2 
spanned 3 
types 3 
zero (RO) 3 
RECSIZE=, CPMOD macro parameter 2 
reenterable modules 1, 3 
reference 3 
by ID (DAM) 3 
by KEY (DAM) 3 | 
methods and addressing systems 3 
register usage 4 
relative block addresses, converting of 4 
relative 
address conversion 3 
addressing conventions 3 
RELEASE macro 1 
relocate DIF address constants 1 
RELPAG macro 1 
RELSE macro 1, 2 
MTMOD 2 
RELSE 2 
translate subroutine 
fixed-length records 2 
undefined records 2 
variable-length records 2 
TRUNC 2 
work area subroutine 2 
WRITE work files 2 
rename VTOC label 4 
requirements 
for I/O areas 3 
storage 1 
RESCN macro 1, 2 
RETRVE functions random (ISAM) 3 
Channel program builder 3 
FREE macro 3 
READ KEY macro 3 
WAITF macro 3 
WRITE KEY macro 3 
RETRVE functions sequential (ISAM) 3 
channel program builder 3 
ESETL macro 3 
GET macro 3 
PUT macro 3 
SETL macro ($$BSETL) 3 
SETL macro ($$BSETL1) 3 
RETRVE open (ISAM) 3 
phase 1 3 
phase 2 3 
RETRY=, CPMOD macro parameter 2 
returned record ID (IDLOC) 3 
rotational positional sensing (RPS) 4 
RPS 
DTF extension work area 22 
indicators 4 
phase loading 1 
SVA initialization 1 


4 


SAM (sequential access method) 1, 2 
SAM | 
control path 4 
DASD files 4 


DASD OPEN/CLOSE/FEOVD logic44& 
logic modules 4 
OPEN monitor parameter list (IJJGMNP) 4 
OPEN/CLOSE processing 4 
service routine (SSR) 4 
Save areas 2 
save areas 
DUMODFI 2 
DUMODFO 2 
module 2 
scratch VTOC label 4 
SDMOD FEOVD macro 2 
search multiple tracks 3 
seek overlap subroutines 3 
selective tape lister (STL) 2 
SEOF 4 
SEOV macro 1 
sequence link field 3 
entries 3 
index level pointer format 3 
sequential access DASD files 4 
sequential access method (SAM) 1, 2 
sequential DASD 
channel programs 2 
close 2 
files 2, 1 
close monitor 1 
open monitor 1 
files, opening and closing of 4 
open general flow 2 
open/close logic 2 
sequential processing 1 
SETDEV macro 1, 2 
SETFL macro 
LOAD 1, 3 
SETL macro 
ISMOD ADDRTR 1, 3 
ISMOD SEQNTL RETRVE 1, 3 
shared virtual area (SVA) 4. 
software end-of-file (SEOF) 4 
spanned records 4 
control field 3 
READ macro 3 
WRITE AFTER macro 3 
WRITE macro 3 
WRITE RZERO macro 3 
special purpose routines for LIOCS 1 
split cylinder extents 4 
standard 
label processing 1 
tape file labels 1 
STL control fields 2 
storage areas 3, 4 
storage areas 
SD 
input/output areas 2 
module save areas 2 
I/O areas 3 
work areas 3 
storage requirements 1 
strings, channel program builder 3 
subroutine 
address modification 1 
close monitor 1 
DAMOD 
channel program builder 3 
seek overlap 3 


DAMODV 3 
channel program builder 3 
IJIGET 3 
seek overlap 3 

MODLOOP 1 
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MT block/deblock 2 
MT open/close 2 
MTMOD 2 
EOV 2 | 
read/write fixed-length records 2 
read/write undefined records 2 
read/write variable-length records 2 
translate fixed-length records 2 
translate undefined records 2 
translate variable-length records 2 
work area 2 
supervisor SYSFIL routine, function of 4 
support, TES 1 
SVA to LTA bridge 4 
Svcs 1 
switching, alternate 2 
symbols, flowchart 1, 2, 3 
sync byte 2 
SYSFIL 
logic modules 4 
logical units 4 
system files, device independent 2 
system files 
SYSIPT 4 
SYSLST 4 
SYSPCH 4 
SYSRDR 4 


table 
DSKXTNT 3 
PDTABB for MICR 2 
tabular modular system 1 
linkage 1 
tape error statistics 1 
tape labels procedure (LBRET macro) 
tape volume labels, creation o 1 
tape 3 
input file 
output file 
tapemarks 1 
telecommunications access methods 1 
termination procedures 3, 4 
termination 1, 3 
file 1 
of DAM 3 
procedures 3, 4 
TES 
processor 1 
Support 1 
top 
track 
hold function 1 
index 3 
search, multiple 3 
trademarks, placement of 2 
trailer labels cr tape, user 1 
translate subroutine MTMOD 2 
translation, paper tape files 2 
TRC (table reference character) 2 
CPMOD 2 
DTFCP - DISK=NO 2 
DTFCP - DISK=YES 2 
DTFCP - omitted 2 
DTFDI 
DTFPR 2 
PRMOD - PUT macro 2 
TRUNC macro 2 
MTMOD 2 
truncation 2 
IJDPR3 2 
3800 buffer 2 
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type code, DTF 1 

TYPEFLE= 2 
CPMOD macro parameter 2 
DTFCP macro parameter 2 


types of records 3 


undefined record modules for SD 2 
UNIT RECORD FILES 1, 2 

CLOSE MONITOR 1 

CLOSE ROUTINE 1 

OPEN MONITOR 1 

OPEN ROUTINE 1 
unlabeled MT file option 2 
unlabeled tape files 1 
upper/lower limits for FBA devices, 

algorithm to calculate 4 

user label parameter list (IJJGULTB) 4 
user label processor 

for input files 4 

for output files 4 
user labels 1, 2 

Magnetic tape 1 


variable-length record modules for SD 2 
VARUNB records 3 
READ macro 3 
WRITE after macro 3 
WRITE macro 3 
WRITE RZERO macro 3 
version 3 DTF (IJGVER3) 4 
virtual storage access method (VSAM) 1 
virtual transients (logical transient 
extension running in virtual) 1. 
S$$VOPENT 1 : 
volume descriptor list (IJJHDLST) 4 
contents of 4 
volume label 1, 2 
volume labels DASD/diskette 1 
VSAM (virtual storage access method) 1 
data organization 1 
display phase 1 1 
display phase 2 1 
display phase 3 (diskette) 1 


dump 1 
dump (diskette) 1 
list 1 


list (diskette) 1 
VSE/BTAM 1 | 
vy Toc 
closing of 4 
label processing 4 
opening of 4 
reading labels of 4 
rename label in 4 
scratch label 4 
writing labels to 4 


WAITF macro 1, 2, 3 
DAMOD 3 
DAMODV 3 
DRMOD 
ISMOD 
ISMOD 
ISMOD 
ISMOD 
MRMOD 
OR MOD 
work area subroutine for MTMOD 2 
work areas 3 


NN WWW Wd 
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work file format, DTFMT 1 MTMOD work files 2 
work file module 2 SPNUNB records 3 
work file, defining a 4 VARUNB records 3 
WRITE AFTER macro 3 WRITE NEWKEY macro 
DAMOD 3 ISMOD 3 
SPNUNB records 3 TSMOD 3 
VARUNB records 3 ISMOD 3 
WRITE ID macro 3 ISMOD 3 
DAMOD 3 write requests, types of 4 
WRITE KFY macro 3 WRITE RZERO macro 3 
DAMCD 3 DAMOD 3 
ISMOD ADDRTR 3 SPNUNB records 3 
ISMOD RANDOM RETRVF 3 | VARUNB records 3 
WRITE macro 1, 2, 3 writing VTOC labels 4 
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ACB (access method control block) 13 
access methods 
direct 10 
indexed sequential 
-, sequential 10 
~ telecommunications 
virtual 11 
additional file labels 44 
address modification subroutine 
ASCII conversion tables 164 


10 


11 


56 


B-transients (see logical transients) 


basic telecommunications access method 11 
close monitor 58 
open monitor 50 

BTAM-ES 11 

CCB (command control block) 16 


check duplicate device assignments 
for logical units 55 

CHECK macro 19 

CLOSE macro 20 


close monitor functions 57 
close monitor 
general chart 75 
phase 1 ($$BCLOSE) 57 
phase 1, detail chart 105 
phase 2 ($$BCLOS2) 58 
phase 2, detail chart 109 
phase 3 ($$BCLOS3) 58 
phase 3, detail chart 112 
phase 4 ($$BCLOS4) 59 


phase 4, detail chart 113 
subroutines, detail chart 
close routines 


114 


files 43 
close sequential DASD 
FEOVD 61 


free track function 60 


free track function, detail chart 122 
input and output 60 | 
input and output, detail chart 120 
CLOSER macro 21 
CNTRL macro 22 
codes, DIF type 14 
command control block (CCB) 16 
common LIOCS routines 49 
commonly used logical transients 61 
compiler file, open monitor 50 
console file, open monitor 50 
control block, access method (ACB) 13 
control statements for DASD labels 46 
control cards for tape labels 45 
creation of tape volume labels 44 
152 


cross-reference label list 
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LIOCS Volume 1, LY24-5209, 
2e 


3, and 4. 


DAM (direct access method) 10 
DAM device independent extension 
work area 60 
DASD 
file protect 60 
input files 46 
label procedure (for LBRET Macro) 
label processing 46 
labels 43 | 
output files 
DASD files 
close routine 43 
open routine 43 
DASD RPS common close ‘59 
data organization, VSAM 11 
data security message writers 
detail chart 140,146 
declarative macros 12, 9 
define the file (DTFxx) 12 
interrelationship of instructions 
module generation (xxMOD) 15 
dequeue extent JIBs 61 
dequeue extent JIBs, detail chart 
dequeue for VSE/VSAM routines 55 
dequeve for VSE/VSAM routines, 
detail chart 99 
device independent DTF extension 
work area 60 
device release transient 
$$BRELSE 61 
S$S$BRELSE, detail chart 
direct access method (DAM) 
DISEN macro 23 
disk error message writer 


27 


47 


66,68 


16 


124 


125 
10 


phase 1 67 

phase 1, detail chart 137 

phase 2 68 

phase 2, detail chart 138 
diskette 

file labels 47 

files, close routine 43 

files, open routine 43 


input files 47 
label processing 47 
open input, general chart 77 
open output, general chart 78 
output files 47 
diskette error message writer 
phase 1 64 
phase 1, detail chart 
phase 2 65 
phase 2, detail chart 
diskette files 
close routine 43 
label processing 
open routine 43 
display VTOC 62 
DSPLY macro 23 
DTF address constants 
detail chart 93 


143 


144 


47 


55 
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DTF macros 


DTFBG 13 
DTFCD 12 
DTFCN 12 
DTFCP 12 
DTFDA 12 
DTFDI 12 
DTFDR 13 
DTFDU 13 
DTFEN 13 
DTFIS 13 
DTFMR 13 
DTFMT 13 
DTFOR 13 
DTFPH 13 
DTFPR 13 
DTFPT 13 
DTFSD 13 
DTFSR 13 


DTF structure, general information 12 
DTF types 14 
DTF types used by $$BCLRPS 60 
DTFMT work file format 56 
dump VTOC 
DASD 66 
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duplicate device assignment 55 
duplicate device assignment, detail 
chart 97 
OPENR macro 30 
DTF address constants 55 
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RPS DTF extension work area 60 
RPS phase loading 57 | 
RPS SVA initialization 57 


SAM (sequential access method) 10 
SEOV macro 36 
sequential access method (SAM) 10. 
sequential DASD files 
close monitor 57 
open monitor 50 
sequential processing 10 
SETDEV macro 37 
SETFL macro 37 
SETL macro 38 
special purpose routines for LIOCS 49 
standard tape file labels 44 
standard tape label processing 45 
input file 45 
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